' LPT current controller ' made by Svjatoslav Agejenko ' in 2002 ' H-Page: svjatoslav.eu ' E-Mail: svjatoslav@svjatoslav.eu ' Control current on LPT port pins, ' use keys 1 - 8 to toggle on/off DECLARE SUB disp () DECLARE SUB send () DIM SHARED bit(1 TO 8) DIM SHARED prt prt = &H378 FOR a = 1 TO 8 bit(a) = 0 NEXT a SCREEN 13 1 disp send a$ = INPUT$(1) IF VAL(a$) > 0 THEN b = VAL(a$) IF bit(b) = 0 THEN bit(b) = 1 ELSE bit(b) = 0 END IF GOTO 1 SUB disp LOCATE 3, 1 PRINT " 1 2 3 4 5 6 7 8" FOR a = 1 TO 8 LINE (a * 16, 1)-(a * 16 + 8, 9), bit(a), BF NEXT a END SUB SUB send b = 0 FOR a = 1 TO 8 b = b * 2 b = b + bit(a) NEXT a OUT prt, b END SUB