{****************************************************************************}
{*              Entschluesselung der Include-Anweisungen                    *}
{****************************************************************************}

   FUNCTION Sonder( VAR x : line) : boolean;
   BEGIN
     Sonder:=(pos(chr(39),x)=0) AND
        (((pos('{$I',x)>0) OR (pos('(*$I',x)>0))
         AND (pos('{$I+',x)=0) AND (pos('{$I-',x)=0)
         AND (pos('(*$I+',x)=0) AND (pos('(*$I-',x)=0))
    END;

   FUNCTION Sonderzeile ( VAR x : line) : boolean;
     VAR h   : boolean;
         i   : integer;
     BEGIN
       h:=Sonder(x);
       IF h THEN BEGIN
         i:=pos('{$I',x)+3; IF i=3 THEN i:=pos('(*$I',x)+4;
         IF i>3 THEN BEGIN
            InclFileName:='';
            WHILE x[i]=' ' DO i:=i+1;
            WHILE (i<length(x)) AND
                   (x[i] in['-','.',':','0'..'9','A'..'Z','a'..'z']) DO
                  BEGIN InclFileName:=InclFileName+gross(x[i]); i:=i+1 END;
            IF MainFilename[2]=':' THEN
              IF InclFileName[2]=':' THEN InclFileName[1]:=MainFilename[1]
                        ELSE InclFileName:=MainFilename[1]+':'+InclFileName;
            IncludeFlag:=FileExists(Include); h:=IncludeFlag;
         END
       END;
       Sonderzeile:=h
     END;