Return to 630lfk CVS log

Up to [Research Unix] / researchv10dc / 630 / bin

researchv10 Dan Cross

#! /bin/sh
#
#	630lfk - load function key
#
#	630lfk key 'string in echo -e format' ...

while :
do
	case $# in
	0)	exit 0;;
	2)	;;
	*)	echo "usage: $0 [1-8] 'string' ..."; exit 1;;
	esac

	case $1 in
	[1-8])	key=$1;;
	*)	echo "Bad function key - $1"
		echo "usage: $0 [1-8] 'string' ..."; exit 2;;
	esac

	string=`echo -e -n $2`
	length=`echo -n "$string" | wc -c | tr -d " "`
	echo -e -n "\033["$key";${length}q$string"

	shift 2
done

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.