Print "Speed-Test"
   Print "Von Jan_"
   Print "alles wird 10'000'000 mal getestet!"
   Print ""
   m=0
   t1=MilliSecs()
   Repeat
      m=m+1
   Until m= 10000000
   t2=MilliSecs()
   Print "Repeat-Until Schleife: "+(t2-t1)
   
   m=0   
   t1=MilliSecs()
   While m<10000000
      m=m+1
   Wend
   t2=MilliSecs()
   Print "While-Wend Schleife: "+(t2-t1)
 
   m=0
   t1=MilliSecs()
   For m= 0 To 10000000
   Next
   t2=MilliSecs()
   Print "For-Next Schleife: "+(t2-t1)
   
   m=0
   t1=MilliSecs()
   .test
   m=m+1
   If m < 10000000 Goto test
   t2=MilliSecs()
   Print "Goto Schleife: "+(t2-t1)
   
   m=0
   t1=MilliSecs()
   Repeat
      m=m+1
   Until m= 10000000
   t2=MilliSecs()
   T3=t2-t1
   
   m=0
   t1=MilliSecs()
   Repeat
      m=m+1
      test2()
   Until m= 10000000
   
   t2=MilliSecs()
   Print "Function Aufrufen: "+((t2-t1)-t3)
   
   m=0
   t1=MilliSecs()
   Repeat
      m=m+1
      Gosub test3
   Until m= 10000000
   
   t2=MilliSecs()
   Print "Gosub Aufrufen: "+((t2-t1)-t3)
   
   m=0
   Dim A(0)
   t1=MilliSecs()
   Repeat
      A(0)=A(0)+1
      m=m+1
   Until m= 10000000
   t2=MilliSecs()
   Print "Dims berechnen: "+((t2-t1)-t3)
   
   m=0
   Type blubb 
    Field blu 
   End Type 
   bl.blubb = New blubb   
   t1=MilliSecs()   
   Repeat   
      m=m+1   
      bl\blu = bl\blu + 1   
   Until m= 10000000   
     t2=MilliSecs()   
   Print "Typezeit: "+((t2-t1)-t3) 
   Print ""
   Print "Manche Werte sind nicht 100% genau"
   Print "Werte werden durch andere Laufende"
   Print "Programme sehr Stark beeinflusst!"
   Print ""
   Print "bitte Taste drücken zum Beenden"

   WaitKey()
   
   Function test2()
   g=g
   End Function
   
   .Test3
   g=g ; weil sonst der Pre compiler etwas rausschneidet! Dann hat das Teil 0 ms!
   Return