'------------------------------------------------------------------------------------
memclear
cls
button "Quit",[endprog]
timercb 1000,[endtest] 'run for a second
'timercb 0 before 1000ms
wait
[endtest]
wprint "<br>timer triggered"
return
[endprog]
timercb 0 ' stop timercb on endprog
end
'------------------------------------------------------------------------------------