Tset 1,0
Onchange "Test", "@delaytest()"
Onchange "delay_count","@showdelay"
Ontimer 1, "@multidelay()"

Function delaytest()
Tset 1,5
Print"timer started"
Endfn

Function multidelay()
delay_count@ = delay_count@+1
Endfn

Function showdelay()
If delay_count@ = 1 Then
print"First Delay"
Else
If delay_count@ = 2 Then
print"Second Delay"
Else
If delay_count@ = 3 Then
print"Thrid Delay"
Else
If delay_count@ = 4 Then
print"Fourth Delay"
Tset 1,0
Print "Timer now off"
delay_count@ = 0
Else
Endif
Endif
Endif
Endif
Endfn