{**************************************************************************}
{*                         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 SchliessIncludeFile;
     BEGIN
       close(InclFile);
       IncludeFlag:=false
     END;