{timer.i} /* timer library include */
define var t as int no-undo.
t = setTimeout( "displayTime", this-procedure, 1000 ).
t = setTimeout( "displayTime", this-procedure, 5000 ).
t = setTimeout( "displayTime", this-procedure, 10000 ).
display
"The proc will show the time" skip
"1 sec, 5 sec and 10 sec from now" string( time, "hh:mm:ss" ).
wait-for window-close of current-window.
procedure displayTime:
display string( time, "hh:mm:ss" ).
end procedure. /* displayTime */