BBS: Inland Empire Archive
Date: 05-05-92 (18:52)             Number: 167
From: SCOTT DRYSDALE               Refer#: NONE
  To: RONNIE PIERCE                 Recvd: NO  
Subj: Dtr                            Conf: (2) Quik_Bas
Hi,  In an earlier message you said:

 RP> Is there a DTR patch for BASIC 7.1?

  Probably but from what experience I've had with QB45 the
best and easiest   thing you can do is:

comport$ = "#"
OPEN "COM" + str$(comport$) + ":2400,8,N,1" FOR RANDOM AS #1
SELECT CASE comport$
        CASE "1"
                portadd = &H3FC
        CASE "2"
                portadd = &H2FC
        CASE "3"
                portadd = &H3EC
        CASE "4"
                portadd = &H2EC
        CASE ELSE
                ' Not supported
OUT portadd, 3

  What that does is bumps back the DTR before it hase a chance to drop, AFTER
  closing it.  I hope this solves your problem.

--- Maximus 2.01wb
 * Origin: The BULLpen BBS * Intel 14.4EX (613)549-5168 (1:249/140)
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