. . .

 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
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