1 ' Monitor LPT pin state
\r
2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
8 ' Monitors LPT1 pins 14, 16, 17 and some others.
\r
11 DECLARE SUB display ()
\r
31 IF a >= b THEN a = a - b: d = 3 ELSE d = 1
\r
33 CIRCLE (c * 10, 10), 4, d
\r
34 PAINT (c * 10, 10), d
\r