$FUNCNAME$
	COM_INIT()
$CATEGORY$
  Serial I/O
$SUMMARY$
	Initializes the port parameters.
$LANG_RU$
	  .
$SYNTAX$
	COM_INIT(<nComPort>,[<nBaudRate>],[<cParity>],
		 [<nDataLength>],[<nStopBits>]) --> lInitialized
$ARGUMENTS$
	<nComPort> - Designates the port (1 to N) that is initialized.
	<nBaudRate> - Designates the selected baud rate for the port. Settings of 300, 600, 1200, 2400, 4800, 9600 and 19200 baud are possible. The default value is 300 baud.
	<cParity> - Designates parity in the following form: (E)ven, (O)dd, (M)ark, (S)pace, or (N)one. The default value is (N)one.
	<nDataLength> - Designates the data length; seven or eight bits are possible. The default value is eight bits.
	<nStopBits> - Designates the number of stop bits, one or two. The default value is one stop bit.
$LANG_RU$
	<nComPort> -     
	<nBaudRate> -     .   300, 600, 1200, 2400, 4800, 9600 19200 38400     9600
	<cParity> -    : (E)ven, (O)dd, (M)ark, (S)pace, or (N)one.    (N)one.
	<nDataLength> -    ;   7  8 .    - 8.
	<nStopBits> -    ; 1  2.    1.
$RETURNS$
	If the com port is initialized successfully, the function returns .T.
$LANG_RU$
	   ,  .T.
$DESCRIPTION$
	In order to use the serial port after you open it, four
	operating parameters must have been passed to this function. These
	operating parameters are the transmission speed (baud rate), the data
	length, the parity, and the number of stop bits. Tht defaul
	configuration is "9600 baud, 8N1". This configuration means eight data
	bits, no parity, and one stop bit. What is important is that all these
	parameters can be changed while the port is closed. Neither the data
	buffer or the modem status register (DTR, etc.) are affected.

	The port must have been opened previously. It is impossible to
	initialize a port prior to opening it.

	If any or all of the four operating parameters are not
	designated, or are designated incorrectly, the standard arguments of
	9600 baud, no parity, eight data bits, and one stop bit is used.
$LANG_RU$
	      . 
	    (  ),   , , 
	 -.     : 9600 ,
	8  ,    , 1 -. 
	,        ,   
	.         
	(DTR  )  .

	    .  
	  .

	       ,  
	,    : 9600 ,  
	 , 8  , 1 -.
$EXAMPLES$
	nBuff_size := 4000                     // 4000 character buffer
	lComOk  :=  COM_OPEN(1, nBuff_size)    // Open port
	IF lComOk
	      lInitOk  :=  COM_INIT(1, 1200, "N", 8, 1)

	      IF .NOT. lInitOk
		      ? "Port cannot be initialized !"
	      ENDIF
	ENDIF
$PECULIARITIES$
$LANG_RU$
$PLATFORMS$
   No dependies of platform.
   $LANG_RU$
      
$SEEALSO$
	COM_FLUSH(),COM_OPEN(),COM_READ(),COM_SEND(),COM_SFLUSH()
$AUTHOR$
ITK,Paul
$END$
