. . .

 BBS: The MOONFLOWER (509 Vnet A.C.)
Date: 06-05-93 (08:58)             Number: 51
From: TWOBITZ #4 @5092*1           Refer#: NONE
  To: CYCLONE #274 @3459*1          Recvd: YES 
Subj: . . .                          Conf: (218) QuickBASIC

C#@>      Is it possible to open COM4 in Quick Basic?

Here's some com3/com4 startup code. You just swap IRQ vectors.

'Save vectors at bios Addresses for Com1-Com2
DEF SEG = 0
  OldPort1H = PEEK(&H400)
  OldPort1L = PEEK(&H401)
  OldPort2H = PEEK(&H402)
  OldPort2L = PEEK(&H403)

'Initialize the com1/com2 address space
 POKE &H400, &HF8
 POKE &H401, 3
 POKE &H402, &HF8
 POKE &H403, 2

SELECT CASE port%
     CASE 1
        Start$ = "COM1:2400,N,8,1,DS0"
     CASE 2
        Start$ = "COM2:2400,N,8,1,DS0"
     CASE 3
        POKE &H400, &HE8   'For com1 to com3
        Start$ = "COM1:2400,N,8,1,DS0"
     CASE 4
        POKE &H402, &HE8   'For com2 to com4
        Start$ = "COM2:2400,N,8,1,DS0"
END SELECT
DEF SEG
OPEN Start$ FOR RANDOM AS 1

'Do your terminal program here

CLOSE 1

'Restore the comm address vectors
DEF SEG = 0
   POKE &H400, OldPort1H
   POKE &H401, OldPort1L
   POKE &H402, OldPort2H
   POKE &H403, OldPort2L
DEF SEG
END

$$

---
þ 4401 þ Iconian GateWay þ Marietta þ Georgia þ 404-ICO-NIAN þ QB Forum
 0
 0Via: 1618003*1 1618002*1 1616001*1 2*1 6160*1 5092*1