Import MaxGui.Drivers
Framework BRL.EventQueue


Local window:TGadget =CreateWindow("",40,40,320,240)
Local Button:TGadget=CreateButton("Einlesen xy",10,10,80,40, window)


While True
   WaitEvent 
      Select EventID()
      Case EVENT_WINDOWCLOSE
         End
        Case EVENT_GADGETACTION
        
   For i = 1 To 10
         Print  Einlesen("datei") 'dateien einlesen, hier jetzt einfach 10x die gleiche..
   Next
   
   End Select
Wend

Function Einlesen(Datei:String,buffer:Int=400000)

  Local fileStream:TStream = ReadStream(Datei$)
  Local buffPtr:Byte Ptr = MemAlloc(buffer)
   
   Repeat
   
      Local bytesRead = fileStream.Read(buffPtr, buffer)
   
        For Local a=0 Until bytesRead
         wertxy = (wertxy  Shr 8) ~ $FF ~(wertxy & $FF) 'irgendwas mit den eingelesenen Daten berechnen, hier gibts natürlich keinen Sinn
      Next
   
   
   Until Eof(FileStream)
   
   CloseStream FileStream
   MemFree(buffPtr)
   Return wertxy
   
End Function