{***************************************************************************}
{*                      Puffer-Operationen mit FIFO                        *}
{***************************************************************************}

   FUNCTION leer(VAR x : line) : boolean;
     VAR h : boolean;
         i : integer;
     BEGIN
       h:=true;
       i:=1;
       WHILE h AND (i<=length(x)) DO BEGIN h:=ord(x[i])=32; i:=i+1 END;
       leer:=h
     END;

   FUNCTION EndOfBlock : boolean;
     VAR h: boolean;
     BEGIN
       h:=EOF(MainFile);
       IF includeFlag THEN IF EOF(InclFile) THEN BEGIN h:=true;
                                                       IncludeFlag:=false;
                                                       SchliessIncludeFile
                                                 END;
       IF NOT(h) THEN h:=leer(zeile);
       IF NOT(h) THEN h:=Sonder(zeile);
       IF PufferGroesse>PL-MT-MB-3 THEN h:=true;
       EndOfBlock:=h
     END;

   PROCEDURE ClearPuffer;
     BEGIN
       p:=Anfang;
       WHILE p^.Naechster<>NIL DO BEGIN
         q:=p; dispose(p); p:=q^.Naechster;
       END; dispose(p);
       PufferVoll:=false
     END;

   PROCEDURE LiesPuffer;
     BEGIN PufferGroesse:=0;
       new(q); Anfang:=q; q^.Naechster:=NIL;
       REPEAT
         IF IncludeFlag THEN readln(InclFile,zeile)
                        ELSE readln(Mainfile,zeile);
         q^.Eintrag:=zeile;
         PufferGroesse:=PufferGroesse+1;
         new(p);
         q^.Naechster:=p;
         p^.Naechster:=NIL;
         q:=p;
       UNTIL EndOfBlock;
       PufferVoll:=true;
     END;