Click above to get retro games delivered to your door ever month!

  Name:     cominit() - initialize the serial port
  Usage:    <logical> = cominit(<b>,<p>,<d>,<s>,[<port>])
  Params:   integer <b> - the baud rate to initialize. The baud
            rates supported: 110 150 300 600 1200 2400 4800 9600
            string <p> - the parity - either "N", "O" or "E" for
            'none', 'odd' or 'even'
            integer <d> - the number of data bits, either 7 or 8
            integer <s> - the number of stop bits, either 1 or 2
            integer <port> - the port to initialize, optional, if
            left out then port #1 is assumed.

  Returns:  logical .T. if port initialized correctly, .F. if error

 ---------------------------------- Example ---------------------------------

                 * initialize the modem
                 cominit(2400,"N",8,1)

                 * send command string to get it's attention
                 comout("ATZ"+chr(13))

                 * dial a phone number from a DBF field
                 comout("ATDT"+mtel+chr(13))