//	M072 : xlncdlM
option unsigned;

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

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

	_Cls();
	_Print("_CAOɂbnl|[g̐ݒsĂB\n");

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

	//	_CAOŃp^ݒ肵Abnl|[g
	if (port = _ComCreateByDialog()) {
		_ComOpen(port);
		while (!fEnd) {
			_Print("\nENbNA|bvAbvj[珈IĂB\n");
			_Stop();
		}
		_ComClose(port);
		_ComDelete(port);
	}
}
//------------------------------------------------------------------------------//
//	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[] = {	"xlncdlŃtH_M",
						"xlncdlŃt@CM",
						"xlncdlŃt@CM",
						"I"};
	define	id, bytes;
	define	$file, $folder, $wild;

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

	if		(id == 0) {											//	tH_M
		$folder = $_GetFolder("MtH_IĂ");
		if ($folder != "") {
			$wild = $_Input('ChJ[hw肵Ăiex. "*.txt", "*.*" EEEj');
			if ($wild != "") {
				$folder = $_PathCat($folder, $wild);
				_ComSendYModem(port, $folder, _TRUE, _TRUE);	//		xlncdlɂtH_M
			}
		}
	}
	else if (id == 1) {											//	t@CMH
		$file = $_GetOpenFile("Mt@CIĂ", "All(*.*)/*.*/Text(*.txt)/*.txt", "txt");
		if ($file != "") {
			_ComSendYModem(port, $file);						//		xlncdlɂt@CM
		}
	}
	else if (id == 2) {											//	t@CMH
		$file = $_GetFolder("Mf[^i[tH_IĂ", "All(*.*)/*.*/Text(*.txt)/*.txt", "txt");
		if ($file != "") {
			_ComRecvYModem(port, $file, _TRUE);					//		xlncdlɂt@CM
		}
	}
	else if (id == 3) {											//	IH
		fEnd = _TRUE;											//		vOI
	}
	_Restart();
}
