:
#	unpgkey
#
# Preprogramovani funkcnich klaves ansi terminalu zpet do vychoziho stavu
# verze 4.10 / 3.60 / 2.60, rev 990511
# 
# (C) FBL Group, 1992 - 1999
# Firma FBL Vam dava plne opravneni tento program menit, volne sirit 
# nebo pouzit jako soucast jineho programu za techto predpokladu: 
#   - zustane zachovano oznaceni autorskych prav (copyright)
#   - zustane zachovan tento text
#   - tento ci odvozeny program nebude komercne siren 
#     (t.j. prodavan za ucelem dosazeni zisku)
#

# Definice prikazu echo
 
# priklad 1.
# echo potrebuje \c na konci pro potlaceni noveho radku
#echo="echo"
#nnl="\c"
 
# priklad 2. (linux)
# echo potlaci novy radek po parametru -n, interpretuje \ znaky po -e
#echo="echo -en"
#nnl=""
 
# priklad 3. (SCO)
# echo potlaci novy radek po parametru -n, interpretuje \ znaky po -e
echo="echo -n"
nnl=""

if expr `tty` : '.*tty[01][0-9]$' >&-; then
  # Pravdepodobne ansi konzole, programujeme zpet pomoci SCO-ansi sekvenci.
  # Jen jako ukazka - efektivnejsi je pouzit prikaz mapstr.
  $echo "\033Q0'^;[M'${nnl}"
  $echo "\033Q1'^;[N'${nnl}"
  $echo "\033Q2'^;[O'${nnl}"
  $echo "\033Q3'^;[P'${nnl}"
  $echo "\033Q4'^;[Q'${nnl}"
  $echo "\033Q5'^;[R'${nnl}"
  $echo "\033Q6'^;[S'${nnl}"
  $echo "\033Q7'^;[T'${nnl}"
  $echo "\033Q8'^;[U'${nnl}"
  $echo "\033Q9'^;[V'${nnl}"
  $echo "\033Q:'^;[W'${nnl}"
  $echo "\033Q;'^;[X'${nnl}"
else
  # Terminal je pravdepodobne ArcTel.
  # Odprogramovani = naprogramovani prazdnych sekvenci.
  awk ' BEGIN {
	  for (i= 48; i<108; i++) {
	    printf("\033Q%c**", i);
	  }
	}'
fi
