//	M040 : Array operation
option unsigned;

define	MAX_ARR	= 5;
define	fEnd	= _FALSE;

//------------------------------------------------------------------------------//
//	Array operation																//
//																				//
//	Return	: None																//
//------------------------------------------------------------------------------//
function main()
{
	define	i;
	define	nArr[2];
	define	$Arr[2];

	_Cls();														//	Clear screen
	_BtnOpen(0, "End");  _BtnEnable(1, _TRUE);					//	'End' button display

	//	Change number of array elements
	nArr[] =  _MakeArray(MAX_ARR);
	$Arr[] = $_MakeArray(MAX_ARR);

	//	Number of array elements displayed
	_PrintF("Elements of nArr[] = %d, $Arr[] = %d\n", _Elements(nArr[]),  _Elements($Arr[]));

	//	Set values for array
	nArr[0] = 111;	$Arr[0] = "AAA";
	nArr[1] = 222;	$Arr[1] = "BBB";
	nArr[2] = 333;	$Arr[2] = "CCC";
	nArr[3] = 444;	$Arr[3] = "DDD";
	nArr[4] = 555;	$Arr[4] = "EEE";

	//	Array content display
	for (i = 0; i < MAX_ARR; i++) {
		_PrintF("nArr[%d] = %5d, $Arr[%d] = %5s\n", i, nArr[i], i, $Arr[i]);
	}

	_Stop();													//	Wait until the 'End' button is pressed
	_BtnClose(0);												//	Button erase
}
//------------------------------------------------------------------------------//
//	Processing when button is pressed											//
//																				//
//	ArgumentF	BtnNo - Buton ID		 										//
//																				//
//	Return	F	Nonr															//
//------------------------------------------------------------------------------//
function _OnButton(BtnNo)
{
	if (BtnNo == 0) {				//	'End' button?
		_Restart();					//		Notice that the 'End' button is pressed, flag setting
	}
}
