
	; Show hour and minutes
	


_showColon = false
_colon = ":"


	#Loop
	_showColon = !_showColon
	~0.5

		_date = call loadFile ":info date"
		_hour = _date select 4
		_minute = _date select 5
		? _hour < 10 : _hour=format ["0%1",_hour]
		? _minute < 10 : _minute=format ["0%1",_minute]
	
		ctrlSetText [40, format["%1",_hour]]
		ctrlSetText [11, _colon]
		ctrlSetText [41, format["%1",_minute]]
		
	? _showColon : _colon=""; goto "Loop"
	? !_showColon : _colon=":"; goto "Loop"
