projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b9d4c929d0de9f9df11462966973c52b67a6d5f9
[qbasicapps.git]
/
networking
/
comterm.bas
1
' Simple COM port terminal
\r
2
' made by Svjatoslav Agejenko
\r
3
' in 2003.12
\r
4
' H-Page: svjatoslav.eu
\r
5
' E-Mail: svjatoslav@svjatoslav.eu
\r
6
\r
7
CLS
\r
8
\r
9
\r
10
1
\r
11
b = INP(&H3FD)
\r
12
IF b = 97 THEN
\r
13
b = INP(&H3F8)
\r
14
PRINT CHR$(b);
\r
15
PRINT b;
\r
16
END IF
\r
17
\r
18
a$ = INKEY$
\r
19
\r
20
IF a$ <> "" THEN
\r
21
PRINT a$;
\r
22
OUT &H3F8, ASC(a$)
\r
23
END IF
\r
24
GOTO 1
\r
25
\r