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: svjatoslavagejenko@gmail.com\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