int sub OnTimer()
   
// Zakładamy uruchomienie funkcji codziennie o 12:00:00

string sRun = "12:00:00"
string sOstatnieUruchomienie

// Sprawdzamy aktualną godzinę
Date d
d.TodayTime()
buf = d.ToStr()
find regular "^{*} {*}$"

// Sprawdzamy czy już czas uruchomić
if sRun < (regular 2) then
   
   // Sprawdzamy czy dziś było uruchomienie
   if GetIni("Uruchom","OstatnieUruchomienie") != (regular 1) then
   
         // TU WYKONUJEMY CO TRZEBA   

      PutIni("Uruchom","OstatnieUruchomienie",(regular 1))
   endif


endif 

   OnTimer = 0
endsub