again:
DO FOREVER

        ERROR = guiaddctl("TIMER 5000")
	SAY 'Result from add time ***'ERROR'***' 
	guigetmsg()
	CATCH SYNTAX
			CONDITION('M')
			SIGNAL again
			
	CATCH HALT 
	FINALLY
		guidestroywindow()
END

RETURN 0
/* Called by Reginald when a time-out happens for our window. */
wm_timer:
/* Post a WM_CLOSE to simulate the user closing the window. */
guisendmsg(, "POST CLOSE")
/* Return nothing so that this time-out happens only once. */
/* NB NB NB NB Based on the comments from the TIMER example
    I read it as that if I return an empty string, the timer will
   be in effect ALL THE TIME
return ""