networking/monitor3.bas

   1 SCREEN 13\r
   2 \r
   3 prt2 = &H379\r
   4 \r
   5 \r
   6 1\r
   7 IF INP(prt2) <> 127 THEN c = c + .1 ELSE c = c - .1\r
   8 \r
   9 IF c < 16 THEN c = 16\r
  10 IF c > 31 THEN c = 31\r
  11 \r
  12 LINE (100, 50)-(219, 150), c, BF\r
  13 GOTO 1\r
  14 \r