1 ' LPT current controller
\r
2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
7 ' Control current on LPT port pins,
\r
8 ' use keys 1 - 8 to toggle on/off
\r
12 DIM SHARED bit(1 TO 8)
\r
27 IF bit(b) = 0 THEN bit(b) = 1 ELSE bit(b) = 0
\r
35 PRINT " 1 2 3 4 5 6 7 8"
\r
38 LINE (a * 16, 1)-(a * 16 + 8, 9), bit(a), BF
\r