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
|