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

  Name:     comout() - output a string to the serial port
  Usage:    <logical> = comout([<port>])
  Params:   integer <port> - the comm port to output to, optional,
            if left out then port #1 is assumed
  Returns:  logical .T. if string output successfully, .F. if not

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

                 cominit(2400,"N",8,1)

                 * send a command string
                 comout("ATZ"+chr(13),1)

                 * dial a phone number
                 if (! comout("ATDT (201)123-4567"+chr(13)))
                      ? "Couldn't dial phone....
                 endif