ComCarrier()

         Determines if the Carrier flag is on

    Syntax:

         ComCarrier() -> lCarrier

    Description:

         Determines if the Carrier flag is active. This flag must be
         specifically looked at for transmissions or receptions to confirm
         that the connection is still active. If the carrier is lost, it
         could indicate that the other end of the communication link has
         disconnected.

    Return:

         .T. if the Carrier flag is on and .F. if not.

    Example:

         If ! ComCarrier()
           Warning( "NO CARRIER" )
         Else
           Warning( "CARRIER DETECTED" )
         EndIf