CARRIER DETECT

 BBS: Inland Empire Archive
Date: 01-29-93 (16:55)             Number: 366
From: JOHN GALLAS                  Refer#: NONE
  To: JOHN KELLEY                   Recvd: NO  
Subj: CARRIER DETECT                 Conf: (2) Quik_Bas

JK>Looking for and example of code to monitor carrier detect. Would like to
JK>be able to have a local programer using Thorobred  add carrier detect to
JK>his program but he has never seen any code as to what to do. I know there
JK>has to be someone in the Quick Basic world that can do this and hopefully
JK>we can transfer this to another basic program. Any help appreciated.

Use this function to monitor the carrier:

DEFINT A-Z
FUNCTION Carrier  'returns false if no carrier

BaseAddress = &H3F8  '&H2F8 for com 2

DEF SEG = &H40
Carrier = ((INP(BaseAddress + 6) AND 128) >= &H80)
DEF SEG

END FUNCTION

 * OLX 2.1 TD * `*' `*' `*'  <--- Vulcan Tribble

--- TMail v1.30.4
 * Origin: TC-AMS MLTBBS 2.2 - Minnetonka, MN (612)-938-4799 (1:282/7)