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
  OUT PortAddress + 4, INP(PortAddress + 4) AND &HFE


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,
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)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET