#include <stdio.h>
#include <windows.h>
#define bs 16384L
#define xs 1024L
int main(int argc, char **argv)
{
   unsigned long ms=0L;
   char s[bs]="";
   char filename[254]="test.dat";
   printf("fwrite 0.0\n");
   FILE *f;
   if (argc<3)
   {
      printf("fwrite <filename> <bytes>\n");
      return(1);
   } else {
      strcpy(filename,argv[1]);
      ms=atol(argv[2]);
   }
   double t1=GetTickCount();
   f=fopen(filename,"wb");
   int done=0;
   unsigned long i=0L;
   while(done==0)
   {
      fwrite(s,bs,1,f);
      i+=bs;
      if((i%(bs*xs))==0)
      {
         printf("%.18ld\r",i);
         //Sleep(80);
      }
      if ((unsigned long)i+bs>=ms) done=1;
   }
   fwrite(s,ms-i,1,f);
   printf("%.18ld\n",ms);
   fclose(f);
   double t2=GetTickCount();
   printf("Done. Time Elapsed: %f seconds. %f bytes per second.\n",(t2-t1)/1000.0,ms/((t2-t1)/1000));
}

While Not Eof(filein)
      teil$=ReadString( filein)
      zahl0=Instr(teil$,"#")
      zahl1=Instr(teil$,",")
      teilx = LSet(teil$,zahl1-1)
      
      teil$=RSet(teil$,zahl0-zahl1)
      zahl0=Instr(teil$,"#")
      zahl1=Instr(teil$,",")
      teily = LSet(teil$,zahl1-1)
      
      teil$=RSet(teil$,zahl0-zahl1)
      zahl0=Instr(teil$,"#")
      zahl1=Instr(teil$,",")
      teilz = LSet(teil$,zahl1-1)
      
      teil$=RSet(teil$,zahl0-zahl1)
      zahl0=Instr(teil$,"#")
      zahl1=Instr(teil$,",")
      teilinfo = LSet(teil$,zahl1-1)
      
      teil$=RSet(teil$,zahl0-zahl1)
      zahl0=Instr(teil$,"#")
      zahl1=Instr(teil$,",")
      teilgrad = LSet(teil$,zahl1+3)
      
   
         o.o = New o
         o\x = teilx
         o\y = teily
         o\z = teilz
         o\info= teilinfo
         If teilinfo=1 Then o\obj=CopyEntity(wand)
         If teilinfo=2 Then o\obj=CopyEntity(tur)
         If teilinfo=3 Then o\obj=CopyEntity(fenster)
         If teilinfo=4 Then o\obj=CopyEntity(tor)
         If teilinfo=0 Then o\obj=CopyEntity(boden)
         If teilinfo=5 Then o\obj=CopyEntity(zaun)
         If teilinfo=6 Then o\obj=CopyEntity(zauntor)
         PositionEntity o\obj,o\x,o\y,o\z
         EntityAlpha o\obj,1
         EntityColor o\obj,255,255,255   
         o\grad = teilgrad
         TurnEntity o\obj,0,teilgrad,0
   Wend

-8,0,4,1,0#
-8,0,0,1,0#
-4,0,0,1,90#
0,0,0,1,90#
0,0,4,1,180#
0,0,8,1,180#
-4,0,8,1,270#
-8,0,8,1,270#