Makes shift lights blink in a binary pattern

[eoredson]

Here is a fun post that makes the shift lights blink in a binary pattern:

Code: (Select All)

Rem makes shift lights blink in a binary pattern.
Color 15, 1
Print "Blink lights.."
Color , 0
Color 14
C = 8 ' set default color.
Do
  ' rotate color.
  C = C + 1
  If C = 15 Then C = 9
  Color C
  For x = 0 To 7
      Select Case x
        Case 0 ' off
            _Numlock Off
            _CapsLock Off
            _Scrolllock Off
            Print "Numlock Off  Capslock Off  Scrolllock Off"
        Case 1
            _Numlock On
            _CapsLock Off
            _Scrolllock Off
            Print "Numlock On  Capslock Off  Scrolllock Off"
        Case 2
            _Numlock Off
            _CapsLock On
            _Scrolllock Off
            Print "Numlock Off  Capslock On  Scrolllock Off"
        Case 3
            _Numlock Off
            _CapsLock Off
            _Scrolllock On
            Print "Numlock Off  Capslock Off  Scrolllock On"
        Case 4
            _Numlock On
            _CapsLock On
            _Scrolllock Off
            Print "Numlock On  Capslock On  Scrolllock Off"
        Case 5
            _Numlock On
            _CapsLock Off
            _Scrolllock On
            Print "Numlock On  Capslock Off  Scrolllock On"
        Case 6
            _Numlock Off
            _CapsLock On
            _Scrolllock On
            Print "Numlock Off  Capslock On  Scrolllock On"
        Case 7 ' all on
            _Numlock On
            _CapsLock On
            _Scrolllock On
            Print "Numlock On  Capslock On  Scrolllock On"
      End Select
      _Delay 1.5
      If Len(InKey$) Then
        _Numlock Off
        _CapsLock Off
        _Scrolllock Off
        Color 7
        End
      End If
  Next
Loop
End

Enjoy! Erik.