'===========================================================================
' Subject: DETECTING CARRIER                  Date: Unknown Date           
'  Author: Unknown Author(s)                  Code: QB, QBasic, PDS        
'  Origin: FidoNet QUIK_BAS Echo            Packet: MODEM.ABC
'===========================================================================
'>Looking for and example of code to monitor carrier detect. Would like to
'>be able to have a local programer using Thorobred  add carrier detect to
'>his program but he has never seen any code as to what to do. I know there
'>has to be someone in the Quick Basic world that can do this and hopefully
'>we can transfer this to another basic program. Any help appreciated.
 
 
 DEFINT A-Z
 FUNCTION Carrier(Port) ' returns false (0) if no carrier
 Select Case Port
    CASE 1: BaseAddress = &H3F8
    case 2: BaseAddress = &H2F8
    CASE 3: BaseAddress = &H3E8
    CASE 4: BaseAddress = &H2E8
    CASE ELSE: BaseAddress  = Port
            'For Those PS/2 types out there or Weird ones
 End Select
 Carrier = (INP(BaseAddress + 6) AND &h80) > 0