Ok I found one script:
HotKeySet("{pause}","TogglePause")
HotKeySet("{home}","Start")
HotKeySet("{end}","Stop")
Global $Paused
While 1
Sleep(25)
WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
Func Start()
While NOT $Paused
ToolTip(@HOUR&":"&@MIN&":"&@SEC,0,0,"Current time")
Sleep(1000)
WEnd
EndFunc
Func Stop()
ToolTip("bye bye!",0,0,"Current time")
Sleep(1000)
Exit
EndFunc
I