//	M071 : wlncdlM
option unsigned;

define	port	  = 0;

//------------------------------------------------------------------------------//
//	wlncdlM															//
//																				//
//	߂l	F	Ȃ															//
//------------------------------------------------------------------------------//
function main()
{
	define	i, x, y;
	define	$menu[] = {"XMODEMɂt@C𑗐M", "XMODEMɂt@CM", "I"};

	_BtnOpen(0, "bnl|[g̐ݒ");		//	{^\

	//	KCh\
	_Cls();
	_Print("\n\n");
	_Print("ENbNA|bvAbvj[珈IĂ\n");
	_Print("bnl|[g̐ݒ{^ŁA|[gݒύXł܂B\n");
	_Print("LȂbnl|[gI[vƁAEɃ|[g񂪕\܂\n");

	_EnableStdRClk(_FALSE);	//	W̉ENbNɂ|bvAbvj[֎~
							//	̐ݒɂENbNu_OnRClick()vs

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

	_Stop();								//	j[ŏII܂ő҂

}
//------------------------------------------------------------------------------//
//	ENbN̏															//
//																				//
//			F	x - wʒu			shift - ShiftL[tO					//
//				y - xʒu			ctrl  - Ctrl L[tO					//
//																				//
//	߂l	F	Ȃ															//
//------------------------------------------------------------------------------//
function _OnRClick(x, y, shift, ctrl)
{
	define	$menu[] = {"wlncdlŃt@CM", "wlncdlŃt@CM", "I"};
	define	id, bytes;
	define	$file;

	_BtnEnable(0, _FALSE);							//	{^֎~

	id = _PopupMenu($menu[], x, y);					//	|bvAbvj[

	if		(id == 0) {								//	t@CMH
		$file = $_GetOpenFile("Mt@CIĂ", "All(*.*)/*.*/Text(*.txt)/*.txt", "txt");
		if ($file != "") {
			_ComSendXModem1K(port, $file);			//		wlncdlɂt@CM
		}
	}
	else if (id == 1) {								//	t@CMH
		$file = $_GetSaveFile("Mf[^i[t@CIĂ", "All(*.*)/*.*/Text(*.txt)/*.txt", "txt");
		if ($file != "") {
			_ComRecvXModem1K(port, $file);			//		wlncdlɂt@CM
		}
	}
	else if (id == 2) {								//	IH
		_ComClose (port);							//		bnl|[gN[Y
		_ComDelete(port);							//		bnl|[g
		_Exit("|bvAbvj[ŁuIvI܂");
	}

	_BtnEnable(0, _TRUE);							//	{^싖

}
//------------------------------------------------------------------------------//
//	{^̏															//
//																				//
//			F	BtnNo - {^ʂhc	 										//
//																				//
//	߂l	F	Ȃ															//
//------------------------------------------------------------------------------//
function _OnButton(BtnNo)
{
	define NewPort;

	if (BtnNo == 0) {
		if (NewPort = _ComCreateByDialog(port)) {		//	_CAOɂbnl|[g
			port = NewPort;								//		V|[gԍݒ
			OpenComPort();								//		bnl|[g I[v
		}
	}
}
//------------------------------------------------------------------------------//
//	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\
	}
}
