' Monitor LPT pin state ' made by Svjatoslav Agejenko ' in 2002 ' H-Page: svjatoslav.eu ' E-Mail: svjatoslavagejenko@gmail.com ' Monitors LPT1 pins 14, 16, 17 and some others. DECLARE SUB display () DIM SHARED frm SCREEN 13 OUT &H37A, 0 1 display GOTO 1 SUB display a = INP(&H37A) b = 128 LOCATE 5, 1 PRINT a FOR c = 1 TO 8 IF a >= b THEN a = a - b: d = 3 ELSE d = 1 b = b / 2 CIRCLE (c * 10, 10), 4, d PAINT (c * 10, 10), d NEXT c END SUB