{****************************************************************************}
{*                      Utility-Prozeduren                                  *}
{****************************************************************************}

   FUNCTION gross ( x : line ) : line;
     VAR i : integer;
     BEGIN FOR i:=1 TO length(x) DO x[i]:=upcase(x[i]); gross:=x; END;

   PROCEDURE LiesFileName;
     VAR n : STRING[14];
     BEGIN
       readln(n);
       MainFilename:=gross(n);
       writeln
     END;

    FUNCTION FileExists ( x : filetype ) : boolean;
     {Falls das File existiert, wird es zugleich eroeffnet.}
     BEGIN
     CASE x OF
       main    : BEGIN assign(MainFile,MainFilename);
                       {$I-}; reset(MainFile); {$I+};
                 END;
       include : BEGIN assign(InclFile,InclFileName);
                       {$I-}; reset(InclFile); {$I+};
                 END;
     END;
     FileExists:=(ioresult=0)
   END;

   PROCEDURE SchliesseIncludeFile;
     BEGIN
     close(InclFile);
     IncludeFlag:=false
   END;