Type TimeControlUDT
    Declare Constructor(FPS as Integer)
    Declare Sub ControlTime()
    Declare Sub SetFPS(FPS as Integer)
    
    Private:
    Temp1 as Double
    StartTime as Double
    DurchlaeufeS as Integer
End Type

Constructor TimeControlUDT(FPS as Integer)
    DurchlaeufeS = FPS
End Constructor

Sub TimeControlUDT.ControlTime()
    If StartTime > 0 then
        Temp1 = INT(1000 - (Timer - StartTime) * DurchlaeufeS)
        Temp1 = Temp1 \ DurchlaeufeS
        If Temp1 > 0 then Sleep Temp1, 1
    Endif
    StartTime = Timer
End Sub

Sub TimeControlUDT.SetFPS(FPS as Integer)
    DurchlaeufeS = FPS
End Sub