Dtr

 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
END CASE
CLOSE #1
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)