PROG="setleds"


kbset() 
{
	if [ $# -ne 2 ]; then return; fi
	param=$1
	case $2 in
		on)
			$PROG +$param ;;
		off)
			$PROG -$param ;;
	esac
}

keyb_sequence()
{

	kbset num off; kbset caps off; kbset scroll off; sleep 1
	kbset num on;kbset scroll on;sleep 1
	kbset num off;kbset scroll off;kbset caps on;sleep 1
	kbset caps off; kbset num on; sleep 1;
	kbset num off; kbset caps on; sleep 1;
	kbset caps off; kbset scroll on; sleep 1;
	kbset caps on; kbset scroll off; sleep 1;
	kbset num on; kbset caps off; sleep 1;

}

while [ true ]; do keyb_sequence; done