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

  Name:     comin() - input a character from the serial port
  Usage:    <char> = comin([<port>])
  Params:   integer <port> - the port number to read from, optional,
            if left off then port #1 is assumed
  Returns:  a character string of one byte in length that is equal
            to the character read from port <port>.

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

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

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

                 * wait for a character
                 do while ! comcheck()
                 enddo

                 * print the return string
                 do while comcheck()
                      ?? comin(1)
                 enddo