Graphics 640,480,0,2

;Ungefähre gewünschte Framezahl hier angeben!
fps# = 66.666

;Hier wird umgerechnet wie lange ein Schleifendurchgang bei gewünschter Framezahl
;dauert.
fpsWait# = 1000 / fps

While Not KeyHit(1)

   ;Zeitmessung am Anfang des Schleifendurchlaufes
   startT# = MilliSecs()

   ;Hier kommen alle Sachen hin die während eines Schleifendurchlaufs passieren sollen.
   For t = 0 To 50
      Oval xpos+ Rand(0,620),Rand(0,460),20,20,1
   Next
   
   
   ;Wenn genügend Zeit vorhanden ist wird zuerst mit "Delay" gewartet und danach den Rest
   ;der Zeit mit einer Schleife. Diese Schleife dient als Pufferzone für das ungenaue "Delay".
   sleepingtime# = (15 - (MilliSecs() - startT#))/1.5
   If sleepingtime > 2 Then Delay sleepingtime
   Repeat : Until startT# + fpsWait# <= MilliSecs()
   
   Flip  0  : Cls
   
   ;Wer will kann sich das ganze in Zahlen anzeigen lassen:
   endT# = MilliSecs()
   Text 30,30,  "Frames pro Sekunde:" + 1000 /  (endT - startT)
   Text 30,60,  "Mit Delay gewartete Millisekunden" + sleepingtime#


Wend

SetBuffer BackBuffer()

max_fps#=120
fps_time#=1000./max_fps#

While Not KeyDown(1)
   While MilliSecs()<nextfps#:Delay 1:Wend:nextfps#=MilliSecs()+fps_time#
   Color 0,0,0
   Rect 0,0,GraphicsWidth(),GraphicsHeight()
   fps#=(19.*fps#+1000./(MilliSecs()-ofps))/20.:ofps=MilliSecs()
   Color 255,255,255
   Text 1,1,fps#
   CopyRect 0,0,GraphicsWidth(),GraphicsHeight(),0,0,BackBuffer(),FrontBuffer()
Wend

graphics 1024,768,0,2

setbuffer backbuffer()
seedrnd millisecs()

while not keydown(1)

a=rand(800)
b=rand(600)
c=rand(100)
d=rand(100)

oval a,b,c,d

flip 0
cls
wend
end