BRUN 45

 BBS: Inland Empire Archive
Date: 02-23-93 (15:29)             Number: 316
From: JOHN GALLAS                  Refer#: NONE
  To: RON HAMMER                    Recvd: NO  
Subj: BRUN 45                        Conf: (2) Quik_Bas

RH>Heres my problem. When I wright comm programs, I have to use Brun45
RH>to prevent Basic from droping carrier after it exit. Is there a
RH>way I can make a stand alone Exe file. Is there a patch for
RH>BRUN45.EXE to solve the carrier problem?

You don't need a patch, just use the following sub:

SUB SetDTR (Setting%)
' For COM1 the address is &H3F8, for COM2 its &H2F8

PortAddress = &H3F8

' if setting is not equal to 0, dtr will be raised, otherwise it'll be
' lowered.
IF Setting% THEN
  OUT PortAddress + 4, INP(PortAddress + 4) OR 1
ELSE
  OUT PortAddress + 4, INP(PortAddress + 4) AND &HFE
END IF

END SUB

And call it from your program like this:


OPEN "Com1:2400" etc FOR RANDOM AS #1

<do your stuff>

'when you're ready to shut down,
CLOSE #1
SetDtr -1

That'll keep it from hanging up, but you have to Set the Dtr RIGHT after
you close the com port.

 * OLX 2.1 TD * Reality-o-meter:  [\........]  Hmmph!  Thought so...

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