2 ################################################################################
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
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
13 # (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
15 ################################################################################
17 export esc=$(print "\033")
18 export cr=$(print "\015")
20 if [ "$TERM" = "hpterm" \
23 -o "$TERM" = "70096" ]; then
26 # . RecvPace: Xon/Xoff
27 # . InhHndShk (G): Yes
29 print "${esc}&q0n1h${esc}&s1g1H\c"
31 if [ "$me" = fk1 ]; then
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
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
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
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
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
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"
93 # Turn on Function keys to see changes
96 print -u2 "Sorry but the terminal type $TERM, is not supported"