networking/prt.bas

   1 ' LPT current controller\r
   2 ' made by Svjatoslav Agejenko\r
   3 ' in 2002\r
   4 ' H-Page: svjatoslav.eu\r
   5 ' E-Mail: svjatoslav@svjatoslav.eu\r
   6 \r
   7 ' Control current on LPT port pins,\r
   8 ' use keys 1 - 8 to toggle on/off\r
   9 \r
  10 DECLARE SUB disp ()\r
  11 DECLARE SUB send ()\r
  12 DIM SHARED bit(1 TO 8)\r
  13 DIM SHARED prt\r
  14 \r
  15 prt = &H378\r
  16 FOR a = 1 TO 8\r
  17 bit(a) = 0\r
  18 NEXT a\r
  19 SCREEN 13\r
  20 \r
  21 1\r
  22 disp\r
  23 send\r
  24 a$ = INPUT$(1)\r
  25 IF VAL(a$) > 0 THEN\r
  26 b = VAL(a$)\r
  27 IF bit(b) = 0 THEN bit(b) = 1 ELSE bit(b) = 0\r
  28 END IF\r
  29 \r
  30 GOTO 1\r
  31 \r
  32 SUB disp\r
  33 \r
  34 LOCATE 3, 1\r
  35 PRINT "  1 2 3 4 5 6 7 8"\r
  36 \r
  37 FOR a = 1 TO 8\r
  38 LINE (a * 16, 1)-(a * 16 + 8, 9), bit(a), BF\r
  39 NEXT a\r
  40 \r
  41 \r
  42 \r
  43 END SUB\r
  44 \r
  45 SUB send\r
  46 \r
  47 b = 0\r
  48 FOR a = 1 TO 8\r
  49 b = b * 2\r
  50 b = b + bit(a)\r
  51 NEXT a\r
  52 \r
  53 OUT prt, b\r
  54 END SUB\r
  55 \r