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

  Name:     comcheck() - test if character available from comm port
  Usage:    <logical> = comcheck([<port>])
  Params:   integer <port> - the port number to check. Optional, if
            left off then port #1 is assumed.
  Returns:  logical .T. if a character is ready, .F. if not or error

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

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

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

                 * loop around waiting for something to happen
                 do while .T.
                      * check for a character
                      if (comcheck())
                           * print the return string
                           do while comcheck()
                                ?? comin()
                           enddo
                      endif
                 enddo