home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / basic / bmag / blinkey.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-15  |  1.8 KB  |  52 lines
  1. '─ Area: F-QUICKBASIC ─────────────────────────────────────────────────────────
  2. '  Msg#: 427                                          Date: 13 Apr 94  15:37:06
  3. '  From: Jeff Root                                    Read: Yes    Replied: No 
  4. '    To: Eric Nadeau                                  Mark:                     
  5. '  Subj: Keyboard Lights
  6. '──────────────────────────────────────────────────────────────────────────────
  7. 'Eric Nadeau asked for help in making his keyboard lights
  8. 'flash on and off.  The following two little routines work
  9. 'on my 84-key keyboard.  I think that adding "POKE 151, n"
  10. 'wherever "POKE 23, n" appears will enable them to work on
  11. '101-key keyboards.  Poke the same value into both locations.
  12. 'Please let me know whether it actually works.  If it doesn't,
  13. 'it will be necessary to send the command byte ED followed by
  14. 'a data byte (value 0-7) to I/O port 64 hex.
  15. ' 
  16. 'Warning: 101-keyboard lights will get out of synch with the
  17. 'lock status if you only do one poke and not both.
  18. ' 
  19. 'The keyboard needs to be reset before the POKEs take effect.
  20. 'Just POKEing is not enough.  Doing an INKEY$ causes it to be
  21. 'reset, and that's what I do here.  Try pressing the lock
  22. 'keys while CYLON is running, and see what happens.
  23. ' 
  24.  ' BLINKEY.BAS   Jeff Root   4-12-94
  25.  DEFINT A-Z
  26.  DEF SEG = 64
  27.  DO
  28.    FOR c = 0 TO 1
  29.      FOR b = 0 TO 1
  30.        FOR a = 0 TO 1
  31.          POKE 23, a * 16 + b * 32 + c * 64
  32.          IF INKEY$ > "" THEN POKE 23, 0: END
  33.          FOR delay = 1 TO 12000: NEXT
  34.        NEXT
  35.      NEXT
  36.    NEXT
  37.  LOOP
  38.  
  39.  ' CYLON.BAS   Jeff Root   4-12-94
  40.  DEFINT A-Z
  41.  DEF SEG = 64
  42.  POKE 23, 32
  43.  DO
  44.    a = (a MOD 96) + 48
  45.    FOR i = 1 TO 2
  46.      POKE 23, PEEK(23) XOR a
  47.      IF INKEY$ > "" THEN EXIT DO
  48.      FOR delay = 1 TO 6500: NEXT
  49.    NEXT
  50.  LOOP
  51.  POKE 23, 0
  52.