networking/monitor2.bas

   1 SCREEN 12\r
   2 \r
   3 prt2 = &H379\r
   4 \r
   5 1\r
   6 FOR x = 0 TO 630\r
   7   c = INP(prt2)\r
   8   IF c <> 127 THEN\r
   9     y = y + 1\r
  10   ELSE\r
  11     IF y > 0 THEN y = y - 1\r
  12   END IF\r
  13   LINE (x + 6, 0)-(x + 6, 479), 12\r
  14   LINE (x, 0)-(x, 479), 0\r
  15   LINE (x, 0)-(x, y), 15\r
  16 \r
  17 'FOR a = 1 TO 1000\r
  18 'NEXT a\r
  19 NEXT x\r
  20 GOTO 1\r
  21 \r