Graphics(400, 300, 0, 2)
SetBuffer BackBuffer()
Global ms = MilliSecs()
Local Frametimer = CreateTimer(60)		;* 60 Hz Timer
Local beat.TTimer = Create_Timer(2000)		;* 2 Sekunden Timer

Repeat
	Cls
	
	ms = MilliSecs()
	
	If Checktimer(beat) Then Text(200, 150, "TICK", True, True)
	
	Flip(0)
	WaitTimer(Frametimer)
Until KeyHit(1)
End

Type TTimer
	Field Zeit, Dauer
End Type

Function Create_Timer.TTimer(fdauer)
	;* Gibt einen TTimer zurück, der alle *fdauer* Millisekunden schlägt.
	Local T.TTimer = New TTimer
	T\Dauer = fdauer
	;* 0= Timer ist sofort ausgelaufen
	T\Zeit = 0 ;ms
	Return T
End Function

Function Checktimer(T.TTimer)
	;* Gibt TRUE zurück wenn der Timer geschlagen hat
	If T\Zeit + T\Dauer < ms Then
		T\Zeit = ms
		Return True
	Else
		Return False
	EndIf
End Function