--- a/FormAusLib.def
+++ b/FormAusLib.def
@@ -11,17 +11,6 @@
   (*                                                                        *)
   (* The parameter "Laenge" defines the number of bytes handed over in all  *)
   (* procedures if not explicitly describes having another meaning          *)
-  (*------------------------------------------------------------------------*)
-  (* Letzte Bearbeitung:                                                    *)
-  (*                                                                        *)
-  (* 05.09.94, MRi: Durchsicht                                              *)
-  (* 22.06.15, MRi: Einf"uhren des "An"-Formats in WriteN,dWriteN           *)
-  (* 02.10.16, MRi: Aufsplitten der Module FormAus und SFormAus in          *)
-  (*                TFormAus,FFormAus,SFormAus und FormAusLib               *)
-  (*------------------------------------------------------------------------*)
-  (* Offene Punkte                                                          *)
-  (*                                                                        *)
-  (* - ByteToLongInt und ByteToReal fehelen                                 *)
   (*------------------------------------------------------------------------*)
   (* Implementation : Michael Riedl                                         *)
   (* Licence        : GNU Lesser General Public License (LGPL)              *)
@@ -120,4 +109,33 @@
           (* If x cannot be represented as a IEEE.NAN is returned.           *)
           (*-----------------------------------------------------------------*)
 
+PROCEDURE PreParseFormat(    FmtAlt : ARRAY OF CHAR;
+                         VAR FmtNeu : ARRAY OF CHAR;
+                         VAR done   : BOOLEAN);
+
+          (*---------------------------------------------------------------*)
+          (* Ersetzt im ersten Schritt alle vorkommenden "nX" Anweisungen  *)
+          (* durch das intern genutze Format Xn.                           *)
+          (*                                                               *)
+          (* Ersetzt im im zweiten Schritt alle vorkommenden "n(fmt)"      *)
+          (* Anweisungen durch fmt,(n-1)*[fmt].                            *)
+          (*                                                               *)
+          (* Beispiel : "36X,2(1X,I2)" wird zu "X36,X1,I2,X1,I2"           *)
+          (*                                                               *)
+          (* Es sind maximal vier Klammern erlaubt und der Wiederholungs-  *)
+          (* faktor kann nur im Intervall 1..9 liegen, was aber in Anbe-   *)
+          (* tracht der Limitation der Anzahl der ausschreibbaren Parmeter *)
+          (* voellig ausreichend sein sollte.                              *)
+          (*                                                               *)
+          (* Replaces occurences of "nX" format instructions by "Xn" and   *)
+          (* then handles bracketed format expressions "n(fmt)" to replace *)
+          (* them by n time fmt                                            *)
+          (*                                                               *)
+          (* Sample   : "36X,2(1X,I2)" becomes "X36,X1,I2,X1,I2"           *)
+          (*                                                               *)
+          (* The number of brackets is limited to 4 at the moment which    *)
+          (* sould be ok taking the limitation of maximal allowed          *)
+          (* parameter (9) into consideration.                             *)
+          (*---------------------------------------------------------------*)
+
 END FormAusLib.