IF TYPE('_screen.Timer15')='O'
	_screen.RemoveObject('Timer15')
ENDIF
_screen.AddObject('Timer15', 'Timer15Class')
* end of main

DEFINE CLASS Timer15Class As Timer
	Timeout=0
	MaxTimeout=0
	Interval=0

PROCEDURE Init
	WITH THIS
		.Timeout=0
		.MaxTimeout=15000
		.Interval=1000
	ENDWITH

PROCEDURE DoSomething
	ACTIVATE SCREEN
	? DATETIME()

PROCEDURE Timer
	WITH THIS
		.Timeout = .Timeout + .Interval
		IF .Timeout > .MaxTimeout
			.Interval=0
			RETURN
		ENDIF
		.DoSomething
	ENDWITH

ENDDEFINE