X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clients%2FHP%2Fbin%2Ffk1;fp=clients%2FHP%2Fbin%2Ffk1;h=3ded632d3a9e75f3e64417051a636f0e46f554c1;hb=a8c84d2892f07a6863b68a11eb0a4a79ffd71fb5;hp=0000000000000000000000000000000000000000;hpb=95384f94f88aceeb5eef2d322210ba4a438b6512;p=clearscm.git

diff --git a/clients/HP/bin/fk1 b/clients/HP/bin/fk1
new file mode 100644
index 0000000..3ded632
--- /dev/null
+++ b/clients/HP/bin/fk1
@@ -0,0 +1,98 @@
+#!/bin/ksh
+################################################################################
+#
+# File:         .tep
+# RCS:          $Header: .tep,v 1.5 97/10/05 22:31:46 defaria Exp $
+# Description:  Wrapper script to set function keys for the TEP Console
+#               Concentrators.
+# Author:       Andrew DeFaria, California Language Labs
+# Created:      Thu Jun  6 08:31:57 PDT 1996
+# Modified:     Thu Jun  6 08:32:13 PDT 1996 (Andrew DeFaria) defaria@spock
+# Language:     Korn Shell
+#
+# (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
+#
+################################################################################
+me=$(basename $0)
+export esc=$(print "\033")
+export cr=$(print "\015")
+
+if [ "$TERM" = "hpterm" \
+  -o "$TERM" = "hp"     \
+  -o "$TERM" = "2394"   \
+  -o "$TERM" = "70096" ]; then
+  # Turn:
+  #   . Enq/Ack:        No
+  #   . RecvPace:       Xon/Xoff
+  #   . InhHndShk (G):  Yes
+  #   . Inh DC2 (H):    Yes
+  print "${esc}&q0n1h${esc}&s1g1H\c"
+
+  if [ "$me" = fk1 ]; then
+    print "\
+${esc}&f1k2a16d7L Young  hpcleareQQQQT1${cr}\
+${esc}&f2k2a16d7L Loomis hpclsv1 QQQQT2${cr}\
+${esc}&f3k2a16d7L        hpcll237QQQQT3${cr}\
+${esc}&f4k2a16d7L Stablerhpclear1QQQQT4${cr}\
+${esc}&f5k2a16d7L Unitas hpclear3QQQQT5${cr}\
+${esc}&f6k2a16d7L Griese hpclear5QQQQT6${cr}\
+${esc}&f7k2a16d7L Simms  hpclear7QQQQT7${cr}\
+${esc}&f8k2a16d5L  Dis   connect QQQQ${cr}\c"
+  elif [ $me = fk2 ]; then
+    print "\
+${esc}&f1k2a16d7LDynamitehpclldynQQQQT1${cr}\
+${esc}&f2k2a16d7L Mobius hpclang6QQQQT2${cr}\
+${esc}&f3k2a16d7L Starr  hpclearnQQQQT3${cr}\
+${esc}&f4k2a16d7L        hpcll208QQQQT4${cr}\
+${esc}&f5k2a16d7LTarkentnhpclear9QQQQT5${cr}\
+${esc}&f6k2a16d7L  Veil          QQQQT6${cr}\
+${esc}&f7k2a16d7L Kilmer hpclearkQQQQT7${cr}\
+${esc}&f8k2a16d7L        hpcll207QQQQT8${cr}\c"
+  elif [ $me = fk3 ]; then
+    print "\
+${esc}&f1k2a16d7LDuchess         QQQQT1${cr}\
+${esc}&f2k2a16d7LCatbert         QQQQT2${cr}\
+${esc}&f3k2a16d7L  Nala          QQQQT3${cr}\
+${esc}&f4k2a16d7LPywacket        QQQQT4${cr}\
+${esc}&f5k2a16d7L Alley          QQQQT5${cr}\
+${esc}&f6k2a16d7L                QQQQT6${cr}\
+${esc}&f7k2a16d7L                QQQQT7${cr}\
+${esc}&f8k2a16d5L  Dis   connect QQQQ${cr}\c"
+  elif [ $me = fk4 ]; then
+    print "\
+${esc}&f1k2a16d7L Wampus         QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob01        QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob02        QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob03        QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob04        QQQQT5${cr}\
+${esc}&f6k2a16d7L                QQQQT6${cr}\
+${esc}&f7k2a16d7L                QQQQT7${cr}\
+${esc}&f8k2a16d5L  Dis   connect QQQQ${cr}\c"
+  elif [ $me = fk5 ]; then
+    print "\
+${esc}&f1k2a16d7Lcllvob05        QQQQT1${cr}\
+${esc}&f2k2a16d7Lcllvob06        QQQQT2${cr}\
+${esc}&f3k2a16d7Lcllvob07        QQQQT3${cr}\
+${esc}&f4k2a16d7Lcllvob08        QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllvob09        QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllvob10        QQQQT6${cr}\
+${esc}&f7k2a16d7L                QQQQT7${cr}\
+${esc}&f8k2a16d5L  Dis   connect QQQQ${cr}\c"
+  elif [ $me = fk6 ]; then
+    print "\
+${esc}&f1k2a16d7L Gideon         QQQQT1${cr}\
+${esc}&f2k2a16d7L Oliver         QQQQT2${cr}\
+${esc}&f3k2a16d7L Dinah          QQQQT3${cr}\
+${esc}&f4k2a16d7LCheshire        QQQQT4${cr}\
+${esc}&f5k2a16d7Lcllbld01        QQQQT5${cr}\
+${esc}&f6k2a16d7Lcllbld02        QQQQT6${cr}\
+${esc}&f7k2a16d7Lcllbld03        QQQQT7${cr}\
+${esc}&f8k2a16d7Lhpcll321        QQQQT8${cr}\c"
+  fi
+
+  # Turn on Function keys to see changes
+  print "${esc}&jB\c"
+else
+  print -u2 "Sorry but the terminal type $TERM, is not supported"
+  exit 1
+fi