11 lines
311 B
QBasic
11 lines
311 B
QBasic
REM ****************************************
|
|
REM ** RECEIVE TEXT FROM A SERIAL TERMINAL *
|
|
REM ****************************************
|
|
2 ON COM GOSUB 10
|
|
3 COM ON
|
|
10 OPEN "COM:88N1E" FOR INPUT AS 1
|
|
20 OPEN "INTXT1.DO" FOR OUTPUT AS 2
|
|
30 LINE INPUT #1,A$
|
|
40 PRINT #2,A$
|
|
50 IF NOT EOF(1) THEN GOTO 30
|
|
60 CLOSE 1,2 |