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

John,
        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.

c'ya!
GK


--- Maximus 2.00
 * Origin: STARFIRE COMMAND - 615-875-4131 - (1:362/101)