Basic Terminal/Comm

 BBS: Inland Empire Archive
Date: 03-20-92 (13:26)             Number: 126
From: JERRY GILREATH               Refer#: NONE
  To: JOHN DUNN                     Recvd: NO  
Subj: Basic Terminal/Comm            Conf: (2) Quik_Bas
        In response to your request for a basic terminal program:

 CLS                                     'clear the screen silly!
 OPEN "com1:2400,n,8,1" AS #1            'open the comport at 2400 baud

WHILE A$<>"~"                            'watch for ~ to end the loop

 IF NOT EOF(1) THEN PRINT INPUT$(1, #1); 'watch comport for activity
 IF INSTAT THEN a$= INKEY$:print #1,a$;  'watch keyboard for activity

WEND                                     'end loop at ~ or continue

 CLOSE                                   'close all open handles
 CLS                                     'clear the screen again silly!
 PRINT "Bye Yall!"                       'Closing statement!

And that's how simple it is. if you're using QB or QBX,
you'll have to change the IF INSTAT line.. you'll have to
ask the others here how to do that, but I think 'IF
INKEY$<>"" THEN A$=INKEY$...' might do it.


--- Maximus 2.00
 * Origin: STARFIRE COMMAND - 615-875-4131 - (1:362/101)
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