//	M080 : bnl|[gMǂݏo^ݒ
option unsigned;

define	port, bno = 0;
define	fEnd = 0;
define	fDisEvt = _FALSE;

//------------------------------------------------------------------------------//
//	bnl|[gMǂݏo^ݒ												//
//																				//
//	߂l	F	Ȃ															//
//------------------------------------------------------------------------------//
function main()
{
	_Cls();

	_PrintF("L̊e{^ŁAM̐ݒ^ǂݏos܂B");

	_BtnOpen(0, "|[gݒ");	//	{^\
	_BtnOpen(1, "DTR-ON");		//	{^\
	_BtnOpen(2, "DTR-OFF");		//	E
	_BtnOpen(3, "RTS-ON");		//	E
	_BtnOpen(4, "RTS-OFF");		//	E
	_BtnOpen(5, "M");	//	E
	_BtnOpen(6, "I ");		//	E

	port  = _ComCreate();						//	bnl|[g
	OpenComPort();								//	bnl|[g I[v

	_Stop();									//	I{^҂

	_ComClose (port);							//	bnl|[gN[Y
	_ComDelete(port);							//	bnl|[g
}

//------------------------------------------------------------------------------//
//	bnl|[g I[v														//
//																				//
//			F	pno - bnl|[gԍ	 										//
//																				//
//	߂l	F	Ȃ															//
//------------------------------------------------------------------------------//
function OpenComPort()
{
	define	$text;

	if (_ComIsOpenPossible(port)) {							//	I[v\H
		_ComOpen		 (port);							//		bnl|[gI[v
		_ShowText($_StrCat(" ", $_ComGetParam(port), " "));	//		bnl|[g\
	}
	else {													//	I[vsH
		_ShowText("");										//		bnl|[g\
	}
}
//------------------------------------------------------------------------------//
//	{^̏															//
//																				//
//			F	BtnNo - {^ʂhc	 										//
//																				//
//	߂l	F	Ȃ															//
//------------------------------------------------------------------------------//
function _OnButton(BtnNo)
{
	define	NewPort;
	define	Sig;

	if		(BtnNo == 0) {								//	OF|[gݒ{^
		if (NewPort = _ComCreateByDialog(port)) {		//		_CAOɂbnl|[g
			port = NewPort;								//			V|[gԍݒ
			OpenComPort();								//			bnl|[g I[v
		}
	}
	else if (BtnNo == 1) _ComSetDTR(port, _TRUE );		//	PFDTR-ON
	else if (BtnNo == 2) _ComSetDTR(port, _FALSE);		//	QFDTR-OFF
	else if (BtnNo == 3) _ComSetRTS(port, _TRUE );		//	RFRTS-ON
	else if (BtnNo == 4) _ComSetRTS(port, _FALSE);		//	SFRTS-OFF
	else if (BtnNo == 5) {								//	TFMǂݏo
		Sig = _ComGetSignal(port);
		_PrintF("CTS = %d, DSR = %d\n", (Sig & 0x10) != 0, (Sig & 0x20) != 0);
	}
	else if (BtnNo == 6) _Restart();					//	UFI
}
