CARRIER

 BBS: Inland Empire Archive
Date: 01-24-93 (14:27)             Number: 355
From: JOHN GALLAS                  Refer#: NONE
  To: RON HAMMER                    Recvd: NO  
Subj: CARRIER                        Conf: (2) Quik_Bas

RH>I need to know how to detect drop carrier.
RH>I open "COM1:19200,N,8,1" for Random as #1... But it wont detect drop
RH>carrier.
RH>If anyone can help me with this BIG problem It would be Great.

Heres a function to detect the carrier status:

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 * "640K ought to be enough for anybody." - Bill Gates, 1981

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