clients/HP/bin/fk2

   1 #!/bin/ksh
   2 ################################################################################
   3 #
   4 # File:         .tep
   5 # RCS:          $Header: .tep,v 1.5 97/10/05 22:31:46 defaria Exp $
   6 # Description:  Wrapper script to set function keys for the TEP Console
   7 #               Concentrators.
   8 # Author:       Andrew DeFaria, California Language Labs
   9 # Created:      Thu Jun  6 08:31:57 PDT 1996
  10 # Modified:     Thu Jun  6 08:32:13 PDT 1996 (Andrew DeFaria) defaria@spock
  11 # Language:     Korn Shell
  12 #
  13 # (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
  14 #
  15 ################################################################################
  16 me=$(basename $0)
  17 export esc=$(print "\033")
  18 export cr=$(print "\015")
  19
  20 if [ "$TERM" = "hpterm" \
  21   -o "$TERM" = "hp"     \
  22   -o "$TERM" = "2394"   \
  23   -o "$TERM" = "70096" ]; then
  24   # Turn:
  25   #   . Enq/Ack:        No
  26   #   . RecvPace:       Xon/Xoff
  27   #   . InhHndShk (G):  Yes
  28   #   . Inh DC2 (H):    Yes
  29   print "${esc}&q0n1h${esc}&s1g1H\c"
  30
  31   if [ "$me" = fk1 ]; then
  32     print "\
  33 ${esc}&f1k2a16d7L Young  hpcleareQQQQT1${cr}\
  34 ${esc}&f2k2a16d7L Loomis hpclsv1 QQQQT2${cr}\
  35 ${esc}&f3k2a16d7L        hpcll237QQQQT3${cr}\
  36 ${esc}&f4k2a16d7L Stablerhpclear1QQQQT4${cr}\
  37 ${esc}&f5k2a16d7L Unitas hpclear3QQQQT5${cr}\
  38 ${esc}&f6k2a16d7L Griese hpclear5QQQQT6${cr}\
  39 ${esc}&f7k2a16d7L Simms  hpclear7QQQQT7${cr}\
  40 ${esc}&f8k2a16d5L  Dis   connect QQQQ${cr}\c"
  41   elif [ $me = fk2 ]; then
  42     print "\
  43 ${esc}&f1k2a16d7LDynamitehpclldynQQQQT1${cr}\
  44 ${esc}&f2k2a16d7L Mobius hpclang6QQQQT2${cr}\
  45 ${esc}&f3k2a16d7L Starr  hpclearnQQQQT3${cr}\
  46 ${esc}&f4k2a16d7L        hpcll208QQQQT4${cr}\
  47 ${esc}&f5k2a16d7LTarkentnhpclear9QQQQT5${cr}\
  48 ${esc}&f6k2a16d7L  Veil          QQQQT6${cr}\
  49 ${esc}&f7k2a16d7L Kilmer hpclearkQQQQT7${cr}\
  50 ${esc}&f8k2a16d7L        hpcll207QQQQT8${cr}\c"
  51   elif [ $me = fk3 ]; then
  52     print "\
  53 ${esc}&f1k2a16d7LDuchess         QQQQT1${cr}\
  54 ${esc}&f2k2a16d7LCatbert         QQQQT2${cr}\
  55 ${esc}&f3k2a16d7L  Nala          QQQQT3${cr}\
  56 ${esc}&f4k2a16d7LPywacket        QQQQT4${cr}\
  57 ${esc}&f5k2a16d7L Alley          QQQQT5${cr}\
  58 ${esc}&f6k2a16d7L                QQQQT6${cr}\
  59 ${esc}&f7k2a16d7L                QQQQT7${cr}\
  60 ${esc}&f8k2a16d5L  Dis   connect QQQQ${cr}\c"
  61   elif [ $me = fk4 ]; then
  62     print "\
  63 ${esc}&f1k2a16d7L Wampus         QQQQT1${cr}\
  64 ${esc}&f2k2a16d7Lcllvob01        QQQQT2${cr}\
  65 ${esc}&f3k2a16d7Lcllvob02        QQQQT3${cr}\
  66 ${esc}&f4k2a16d7Lcllvob03        QQQQT4${cr}\
  67 ${esc}&f5k2a16d7Lcllvob04        QQQQT5${cr}\
  68 ${esc}&f6k2a16d7L                QQQQT6${cr}\
  69 ${esc}&f7k2a16d7L                QQQQT7${cr}\
  70 ${esc}&f8k2a16d5L  Dis   connect QQQQ${cr}\c"
  71   elif [ $me = fk5 ]; then
  72     print "\
  73 ${esc}&f1k2a16d7Lcllvob05        QQQQT1${cr}\
  74 ${esc}&f2k2a16d7Lcllvob06        QQQQT2${cr}\
  75 ${esc}&f3k2a16d7Lcllvob07        QQQQT3${cr}\
  76 ${esc}&f4k2a16d7Lcllvob08        QQQQT4${cr}\
  77 ${esc}&f5k2a16d7Lcllvob09        QQQQT5${cr}\
  78 ${esc}&f6k2a16d7Lcllvob10        QQQQT6${cr}\
  79 ${esc}&f7k2a16d7L                QQQQT7${cr}\
  80 ${esc}&f8k2a16d5L  Dis   connect QQQQ${cr}\c"
  81   elif [ $me = fk6 ]; then
  82     print "\
  83 ${esc}&f1k2a16d7L Gideon         QQQQT1${cr}\
  84 ${esc}&f2k2a16d7L Oliver         QQQQT2${cr}\
  85 ${esc}&f3k2a16d7L Dinah          QQQQT3${cr}\
  86 ${esc}&f4k2a16d7LCheshire        QQQQT4${cr}\
  87 ${esc}&f5k2a16d7Lcllbld01        QQQQT5${cr}\
  88 ${esc}&f6k2a16d7Lcllbld02        QQQQT6${cr}\
  89 ${esc}&f7k2a16d7Lcllbld03        QQQQT7${cr}\
  90 ${esc}&f8k2a16d7Lhpcll321        QQQQT8${cr}\c"
  91   fi
  92
  93   # Turn on Function keys to see changes
  94   print "${esc}&jB\c"
  95 else
  96   print -u2 "Sorry but the terminal type $TERM, is not supported"
  97   exit 1
  98 fi