networking/read.bas

   1 ' Monitor LPT pin state\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2002\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslav@svjatoslav.eu\r
   6  \r
   7 \r
   8 ' Monitors LPT1 pins 14, 16, 17 and some others.\r
   9 \r
  10 \r
  11 DECLARE SUB display ()\r
  12 DIM SHARED frm\r
  13 SCREEN 13\r
  14 \r
  15 \r
  16 OUT &H37A, 0\r
  17 \r
  18 1\r
  19 display\r
  20 \r
  21 GOTO 1\r
  22 \r
  23 SUB display\r
  24 \r
  25 a = INP(&H37A)\r
  26 b = 128\r
  27 LOCATE 5, 1\r
  28 PRINT a\r
  29 \r
  30 FOR c = 1 TO 8\r
  31 IF a >= b THEN a = a - b: d = 3 ELSE d = 1\r
  32 b = b / 2\r
  33 CIRCLE (c * 10, 10), 4, d\r
  34 PAINT (c * 10, 10), d\r
  35 NEXT c\r
  36 \r
  37 END SUB\r
  38 \r