#declare ArrayDim=1024;
#declare THeight = array [ArrayDim] [ArrayDim]

#declare Zufall=seed(317);

#declare CountX=0;
#while (CountX<ArrayDim)
   #declare CountY=0;
   #while (CountY<ArrayDim)
       #declare THeight [ CountX ] [ CountY ] =int(rand(Zufall)*100);
       #declare CountY=CountY+1;
   #end
   #declare CountX = CountX+1;
#end


#fopen OutFile "BracketBug.inc" write

   #declare CountX=0;
   #while (CountX<ArrayDim)
      #declare CountY=0;
      #while (CountY<ArrayDim)
         #write(OutFile,concat ( str(THeight[CountX][CountY],10,7),",\n") //)
         #declare CountY=CountY+1;
      #end
      #declare CountX=CountX+1;
   #end

#fclose OutFile