[Mike909]

Код:

AdlibRegister("Timer1", 1000) 
AdlibRegister("Timer2", 2000) 
AdlibRegister("Timer3", 3000) 
	sleep (7000) ; тестируем в течении 7 сек
	; основная 
	; программа
AdlibUnRegister("Timer1")
AdlibUnRegister("Timer2")
AdlibUnRegister("Timer3")
Exit

Func Timer1()
         Send ( "{1}" )
EndFunc

Func Timer2()
         Send ( "{2}" )
EndFunc

Func Timer3()
         Send ( "{3}" )
EndFunc