'===========================================================================
' 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