--- a/Errors.def
+++ b/Errors.def
@@ -8,12 +8,21 @@
   (* Licence        : GNU Lesser General Public License (LGPL)              *)
   (*------------------------------------------------------------------------*)
 
-  (* $Id: Errors.def,v 1.1 2016/02/05 10:57:22 mriedl Exp mriedl $ *)
+  (* $Id: Errors.def,v 1.3 2018/06/07 07:13:27 mriedl Exp mriedl $ *)
 
 FROM Deklera IMPORT Locale;
 
 VAR   Fehlerflag : ARRAY [0..255] OF CHAR;  (* Fehlermeldungen *)
       Fehler     : BOOLEAN;
+
+      (*-------------------------------------------------------------------*)
+      (* Fehlerflag und Fehler werden in vielen Modulen als quasi globale  *)
+      (* Variablen importiert um Fehler anzuzeigen.                        *)
+      (*                                                                   *)
+      (* "Fehlerflag" (shortcute for german "Fehlerflagge" is an error     *)
+      (* message and "Fehler" (engl. "error") an error indicator used in a *)
+      (* lot of modules.                                                   *)
+      (*-------------------------------------------------------------------*)
 
       ErrOut     : PROCEDURE(ARRAY OF CHAR);
       FatalError : PROCEDURE(ARRAY OF CHAR);
@@ -23,12 +32,17 @@
  *   PROCEDURE FatalError(Fehlerflag : ARRAY OF CHAR);
  *)
 
-          (*---------------------------------------------------------*)
-          (* ErrOut     : Schreibt Fehlerflag  auf den Bildschirm.   *)
-          (* FatalError : Abbruchfehler, schreibt Fehlerflag auf den *)
-          (*              Bildschirm und schlie\3t nach M"oglichkeit *)
-          (*              alle EA-Kan"ale.                           *) 
-          (*---------------------------------------------------------*)
+          (*----------------------------------------------------------------*)
+          (* ErrOut     : Schreibt Fehlerflag  auf den Standardfehlerkanal  *)
+          (* FatalError : Abbruchfehler, schreibt Fehlerflag auf den        *)
+          (*              Standardfehlerkanal und schlie\3t nach M"oglich-  *)
+          (*              keit alle EA-Kan"ale.                             *) 
+          (*                                                                *)
+          (* ErrOur     : Writes a error flag to the standard error channel *)
+          (* FatalError : Writes a error flag to the standard error channel *)
+          (*              and terminates the program. Open IO channels are  *)
+          (*              closed if possible                                *)
+          (*----------------------------------------------------------------*)
 
 VAR   Lang : Locale;        (* Einstellung der Sprache    *)
 
@@ -36,11 +50,19 @@
 
           (*----------------------------------------------------------------*)
           (* Setze die Sprache der Fehlermeldung ("DE","EN","FR")           *)
+          (*                                                                *)
           (* Set the language for warnings and errors (incomplete).         *)
           (*----------------------------------------------------------------*)
 
-          (* Die folgenden Routinen sind prim"ar zum Debuggen, sie greifen *)
-          (* NICHT auf andere Bibilioteksroutien zur"uck.                  *)
+          (*----------------------------------------------------------------*)
+          (* Die folgenden Routinen sind prim"ar zum Debuggen, sie greifen  *)
+          (* NICHT auf andere Bibilioteksroutien zur"uck. Zudem koennen sie *)
+          (* fuer detailiertere Fehlermeldungen genutzt werden.             *)
+          (*                                                                *)
+          (* The following simple write functions can be used to create     *)
+          (* more detailed error messages or can be used for debugging      *)
+          (* purpose, they do not depend on higher level modules            *)
+          (*----------------------------------------------------------------*)
 
 PROCEDURE WriteChar(chr : CHAR);
 PROCEDURE WriteString(Str : ARRAY OF CHAR);
@@ -53,15 +75,33 @@
           (*---------------------------------------------------------------*)
           (* Sehr einfache Ausgaberoutine, fast immer mit Exponent, ca.    *)
           (* 15 Ziffern wenn noetig                                        *)
+          (*                                                               *)
+          (* Very simple output routine, nearly always with exponent, ca.  *)
+          (* 15 digits if necessary                                        *)
           (*---------------------------------------------------------------*)
 
 PROCEDURE WriteBoolean(b : BOOLEAN);
 
+          (*---------------------------------------------------------------*)
+          (* Schreib den logischen Wert b als "WAHR" ode "FALSCH" auf den  *)
+          (* Standardfehlerkanal.                                          *)
+          (*                                                               *)
+          (* Writs the boolean value b as "TRUE" or "FALSE" to the         *)
+          (* standard error channel.                                       *)
+          (*---------------------------------------------------------------*)
+
 PROCEDURE Pause(i : CARDINAL);
 
-          (* Schreibt die Meldung "Pause - i" auf den Bildschirm und  *)
-          (* wartet dann auf einen beliebigen Tastendruck, "ahnliche  *)
-          (* der FORTRAN - PAUSE - Anweisung. Nur zu Testzwecken ver- *)
-          (* wenden !                                                 *)
+          (*---------------------------------------------------------------*)
+          (* Schreibt die Meldung "Pause - i" auf den Bildschirm und       *)
+          (* wartet dann auf einen beliebigen Tastendruck, "ahnliche der   *)
+          (* der FORTRAN 77 - PAUSE - Anweisung. Nur zu Testzwecken ver-   *)
+          (* wenden !                                                      *)
+          (*                                                               *)
+          (* Writes the message "Pause - i" on the screen and then waits   *)
+          (* for a keystroke. This routine is similar to the (obsolete)    *)
+          (* FORTRAN 77 PAUSE instruction. Should only be used for test    *)
+          (* and debugging purpose.                                        *)
+          (*---------------------------------------------------------------*)
 
 END Errors.