//	M073 : Transmission by XMODEM

function main()
{
	define	port  = 3;
	define	rate  = 15200;
	define	$path = 'd:\work\x.txt';

	_Print("<<< ", $_MyName, " >>>\n");

	_ComCreate(port);
	_ComOpen(port, 115200, 8, 0, 1);

	_ComSendXModem1K(port, $path);

	_ComClose(port);
	_ComDelete(port);
}
