//	M030 : Screen information
option unsigned;

define	fEnd   = _FALSE;

//------------------------------------------------------------------------------//
//	Screen information															//
//																				//
//	Return : None																//
//------------------------------------------------------------------------------//
function main()
{
	define	i;

	_BtnOpen(0, "End");  _BtnEnable(1, _TRUE);					//	'End' button display
	_SetVramSize(40, 50);										//	VRAM size setting (40 characters, 50 lines)
	_SetBufLines(150);											//	Number of buffer lines (150 lines)
	_Cls();														//	Clear screen
	for (i = 1; i < 200; i++) {									//	200 lines display (number of buffer lines exceeded)
		_PrintF("%4d: \n", i);									//	.
	}
	_PrintF("%4d: ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789\n", i);	//	42 character display (VRAM width exceeded)
	_PrintF("VRamWidth =%d\n", _GetVRamWidth());				//	Screen information display
	_PrintF("VRamHeight=%d\n", _GetVRamHeight());				//	.
	_PrintF("BufLines  =%d\n", _GetBufLines());					//	.
	_Stop();													//	Wait until the 'End' button is pressed
	_BtnClose(0);												//	Button erase
}
//------------------------------------------------------------------------------//
//	Processing when button is pressed											//
//																				//
//	Argument:	BtnNo - Button ID		 										//
//																				//
//	Return	:	None															//
//------------------------------------------------------------------------------//
function _OnButton(BtnNo)
{
	if (BtnNo == 0) {				//	'End' button?
		_Restart();					//		Notice that the end button is pressed, flag setting
	}
}
