;*Timer mit auto reset*
;Problem: wenn man es ausführt springt er wieder auf null,
;überschreitet die 3000ms(3 sekunden) grenze,
;aber danach und zählt endlos aufwärts.

Graphics 800,600
SetBuffer = BackBuffer()


altezeit=0
startzeit = MilliSecs();der ursprüngliche zeitbeginn
;startzeit=Int(startzeit)



Repeat;***************************** SCHLEIFE
Cls;CLS.

jetztzeit = MilliSecs()
;OK hier steckten die aktuellen millisecs
;jetztzeit=Int(jetztzeit) ;int das ganze vorsichtshalber


neuzeit	  = jetztzeit - altezeit 
;beim ersten durchlauf ist altezeit=0, sonst rechnet er
;aktuellezeit[jetztzeit] - zeit am ende[altezeit]
 

shortzeit =	neuzeit   - startzeit	
;angezeigt wird eine vortlaufende zahl,
;nämlich jetzt gemessene zeit - anfangszeit :int

;shortzeit=Int(shortzeit)			



If shortzeit >= 3000 Then altezeit=shortzeit	
;wenn shortzeit die 3 sekunden grenze erreicht,
;wird shortzeit in altezeit gespeichert
;shortzeit=Int(shortzeit)
;wenn nach dem \"Then\" ein \"shortzeit=3000:\" folgt macht er beim zweiten lauf bei 3000 ende

Text 50,70, \"shortzeit: \" + shortzeit
Text 50,100,\"startzeit: \" + startzeit
Text 250,70,\"jetztzeit: \" + jetztzeit
Text 250,100,\"altezeit: \"  + altezeit
Text 500,70,\"neuzeit: \"   + neuzeit



Flip
Until KeyHit(1);***************************** SCHLEIFE
End

;ein paar sachen sind auskommentiert, es geht mit und ohne sie nicht.

oldtime=MilliSecs()

Repeat
 ;mach was

 If MilliSecs()-oldtime>=3000
  ;mach was anderes
   oldtime=MilliSecs()
 EndIf
Until ;irgendwas