//	M020 : P[gvg
option unsigned;

define	fStart = _FALSE;
define	fEnd   = _FALSE;

//------------------------------------------------------------------------------//
//	P[gvg̃Tv												//
//																				//
//	߂l	F	Ȃ															//
//------------------------------------------------------------------------------//
function main()
{
	define	i, t, n;
	define	tm[8];

	_SRand(_CurTime());
	_EnableAutoScroll(_FALSE);						//	I[gXN[֎~
	_BtnOpen(0, "Jn");  _BtnEnable(0, _TRUE);		//	Jn{^\
	_BtnOpen(1, "I");  _BtnEnable(1, _TRUE);		//	I{^\

	_SetVramSize(100, 40);

	_Cls();
	_Print("ȉ̈ʒuɌݓ\܂B\n");
	_Print("@sʒuROŊ]\n");
	_Print("@ʒub\n");
	_Print("\eLXgFƁAwiF̓_ɐݒ肵܂B\n");
	_Print("Jn{^ƕ\JnAI{^ŏI܂B\n");

	//	Jn^I{^҂
	_Stop();

	//	ʃNA[
	_Cls();

	//	sʒu\
	for (i = 0; i < 30; i++) {
		_Locate(0, i);
		_PrintF("%2d:", i);
	}

	//	\[v
	while (!fEnd) {						//	I{^܂Ń[v
		n = _Rand();					//		\Fi_lj
		tm[] = _GetDateAndTime();		//		ݓ擾

		_Locate(tm[5] + 5, tm[4] % 30);	//		J[\ʒuݒibCs%30j
		_SetTextColor(n % 8);			//		eLXg`Fݒ
		_SetBackColor((n + 2) % 8);		//		eLXgwiFݒ
		_Print($_DateAndTime());		//		\

		_msWait(1000);					//		PbEFCg

		_Locate(tm[5] + 5, tm[4] % 30);	//		̕\NA[
		_ResetColor();					//		E
		_Print("                   ");	//		E
	}

	_Cls();
	// {^i{^Ȍڎł悤ɂPbEFCgj
	_BtnClose(0); _msWait(1000);
	_BtnClose(1);
}
//------------------------------------------------------------------------------//
//	{^̏															//
//																				//
//			F	BtnNo - {^ʂhc	 										//
//																				//
//	߂l	F	Ȃ															//
//------------------------------------------------------------------------------//
function _OnButton(BtnNo)
{
	if		(BtnNo == 0) {				//	Jn{^H
		fStart = _TRUE;					//		Jn{^̎|AtOݒ
		_BtnEnable(0, _FALSE);			//		Jn{^fBXG[u
	}
	else if (BtnNo == 1) {				//	I{^H
		_ResetColor();
		fEnd   = _TRUE;					//		I{^̎|AtOݒ
	}
	_Restart();
}
