From: utzoo!decvax!ucbvax!info-terms
Newsgroups: fa.info-terms
Title: Re: Ann Arbor Ambassador termcaps
Article-I.D.: ucbvax.7559
Posted: Mon Jun  7 23:51:03 1982
Received: Tue Jun  8 03:51:58 1982

>From teklabs!tekid!clives@Berkeley Mon Jun  7 23:48:37 1982
Hi Mark: 

We've had some system problems here, so am resending you this. Please
let me know if you get it.

I'm enclosing the latest set of Ann Arbor termcaps in use at this site,
Tektronix Instrument Division Vax. The core one is aaa36.

Also included are some mods we found helpful for the vt-100/132 and TAB
terminals to fix auto-margin on vi, a termcap for the Tek (OEM'ed) CT-8500,
some better versions for the gamut of Tek DVST terminals, and a slight mod
for the Tek 402x's.

Here are some problems with the Ann Arbor termcaps you sent on the net:

(Please don't consider them at all personal - I have some inkling of 
the headache you've taken on, just hope these help.)

	1. Neither yours nor Rand's adequately initializes the multifarous
	   modes, thus may not cancel previous intended or otherwise
	   terminal programming.

	2. Your version causes our rogue (3.6) to strangle and die during it's
	   initialization. Rand is ok in this regard.

	   (I've had this problem before - seemed to have something to do
	   with vi/ve strings. So I eliminated them. One never wants
	   unhappy rogue players on one's case!)

	3. Both yours and Rand's use underline for vi cursor -
	   much harder to find than block cursor in text.

	4. Rand erases screen on terminal initialization - very bad for logins.
	   One loses motd, mail, news, bb info.

	5. Yours erases vi screen coming out - our users don't like this
	   or general erase on exit behavior. They like the remains of the
	   text to be there.

	6. Yours causes bold stuff in emacs to come out in reverse video, 
	   and puts cursor in the wrong place on exit.


So, here they are. Thanks for your efforts to keep us all up to date, it is
appreciated by those who end up with some site responsibility for it (!).


				Clive Steward
				!teklabs!tekid!clives
				Tektronix, Inc. 39-133
				P.O. Box 500
				Beaverton, Oregon 97077
#
# various screensize ann arbor termcaps
# all flow into aaa36, the default
#
aA|aaa18|ann arbor ambassador with 18 line screen:\
	:is=\E7\E[60;;;18p\E[m\E9\E8\E[m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:li#18:ti=\E[18;;;18p\E[J\E[>31h:\
	:te=\E7\E[60;;;18p\E8\E[J\E[>31l:\
	:tc=aaa:
aB|aaa20|ann arbor ambassador with 20 line screen:\
	:is=\E7\E[60;;;20p\E[m\E9\E8\E[m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:li#20:ti=\E[20;;;20p\E[J\E[>31h:\
	:te=\E7\E[60;;;20p\E8\E[J\E[>31l:\
	:tc=aaa:
aC|aaa22:ann arbor ambassador with 22 line screen:\
	:is=\E7\E[60;;;22p\E[m\E9\E8\E[m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:li#22:ti=\E[22;;;22p\E[J\E[>31h:\
	:te=\E7\E[60;;;22p\E8\E[J\E[>31l:\
	:tc=aaa:
aD|aaa24|ann arbor ambassador with 24 line screen:\
	:is=\E7\E[60;;;24p\E[m\E9\E8\E[m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:li#24:ti=\E[24;;;24p\E[J\E[>31h:\
	:te=\E7\E[60;;;24p\E8\E[J\E[>31l:\
	:tc=aaa:
aE|aaa26|ann arbor ambassador with 26 line screen:\
	:is=\E7\E[60;;;26p\E[m\E9\E8\E[m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:li#26:ti=\E[26;;;26p\E[J\E[>31h:\
	:te=\E7\E[60;;;26p\E8\E[J\E[>31l:\
	:tc=aaa:
aF|aaa28|ann arbor ambassador with 28 line screen:\
	:is=\E7\E[60;;;28p\E[m\E9\E8\E[m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:li#28:ti=\E[28;;;28p\E[J\E[>31h:\
	:te=\E7\E[60;;;28p\E8\E[J\E[>31l:\
	:tc=aaa:
aG|aaa30|ann arbor ambassador with 30 line screen:\
	:is=\E7\E[60;;;30p\E[m\E9\E8\E[m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:li#30:ti=\E[30;;;30p\E[J\E[>31h:\
	:te=\E7\E[60;;;30p\E8\E[J\E[>31l:\
	:tc=aaa:
#
# This one (aaa36) is the recommended normal line window
# (If you like big letters, aaa24 is good)
#
# Notes Bene:
#
# The large number of is string flag inits is quite necessary - 
# that's the price of Ann Arbor's mode flexibility
#
# The erase key is made to function "normally" by reprogramming it in is.
#
# No separate ve vs entries since using them to change the cursor mode
# at least caused big problems with (how could you!) rogue.
#
aH|aaa36|aaa|ambassador|ann arbor|ann arbor ambassador|aa-100|ann arbor ambassador with 36 lines:\
	:is=\E7\E[60;;;36p\E[m\E9\E8\E[m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:co#80:am:bs:pt:\
	:cd=\E[J:ce=\E[K:cl=\E[;;;p\E[J:\
	:cm=\E[%i%d;%dH:ch=\E[%i%d\140:cv=\E[%i%dd:nd=\E[C:\
	:dc=\E[P:dl=\E[M:al=\E[L:ei=:ic=\E[@:im=:\
	:ks=\E[>27h:\
	:ku=\E[A:kd=\E[B:kr=\E[C:kl=\E[D:kh=\E[H:\
	:ke=\E[>27l:\
	:li#36:se=\E[m:so=\E[1m:ue=\E[m:us=\E[4m:\
	:ti=\E[36;;;36p\E[J\E[>31h:\
	:te=\E7\E[60;;;36p\E8\E[J\E[>31l:\
	:bw:do=\ED:up=\EM:
aI|aaa40|ann arbor ambassador with 40 line screen:\
	:is=\E7\E[60;;;40p\E[m\E9\E8\E[m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:li#40:ti=\E[40;;;40p\E[J\E[>31h:\
	:te=\E7\E[60;;;40p\E8\E[J\E[>31l:\
	:tc=aaa:
aJ|aaa48|ann arbor ambassador with 48 line screen:\
	:is=\E7\E[60;;;48p\E[m\E9\E8\E[m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:li#48:ti=\E[48;;;48p\E[J\E[>31h:\
	:te=\E7\E[60;;;48p\E8\E[J\E[>31l:\
	:tc=aaa:
aK|aaa60|ann arbor ambassador with 60 line screen:\
	:is=\E7\E[60;;;60p\E[m\E9\E8\E[m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:li#60:ti=\E[60;;;60p\E[J\E[>31h:\
	:te=\E7\E[60;;;60p\E8\E[J\E[>31l:\
	:tc=aaa:
#
# The following operate the terminal in inverse video
#
aL|aaa18inv|ann arbor ambassador with inverse video and 18 lines:\
	:is=\E7\E[60;;;18p\E[7m\E9\E8\E[7m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:se=\E[7m:\
	:li#18:ti=\E[18;;;18p\E[J:\
	:te=\E7\E[60;;;18p\E8\E[J:\
	:tc=aaa:
aM|aaa24inv|ann arbor ambassador with inverse video and 24 lines:\
	:is=\E7\E[60;;;24p\E[7m\E9\E8\E[7m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:se=\E[7m:\
	:li#24:ti=\E[24;;;24p\E[J:\
	:te=\E7\E[60;;;24p\E8\E[J:\
	:tc=aaa:
aN|aaa36inv|ann arbor ambassador with inverse video and 36 lines:\
	:is=\E7\E[60;;;36p\E[7m\E9\E8\E[7m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:se=\E[7m:\
	:ti=\E[36;;;36p\E[J:\
	:te=\E7\E[60;;;36p\E8\E[J:\
	:tc=aaa:
aO|aaa60inv|ann arbor ambassador with inverse video and 60 lines:\
	:is=\E7\E[60;;;60p\E[7m\E9\E8\E[7m\
\E[>6;4;20;18;51;46;38;31;32;30;50;47;40;26;27;25;52;29;36;39l\
\E[>37;35;28;34;33h\E[1Q\E[X\
\EP\140>y~[[;;;{P}~[[J\E\\:\
	:se=\E[7m:\
	:li#60:ti=\E[J:\
	:te=\E7\E[;;;p\E8\E[J:\
	:tc=aaa:
#
# vt-100 entry: took out am, xn since this terminal has a different notion
# of autowrap from vi/curses. vi calculates it fine.
# Clive Steward 5 April 1982
#
d1|vt100|vt-100|pt100|pt-100|dec vt100:\
	:co#80:li#24:cl=50\E[;H\E[2J:bs:cm=5\E[%i%2;%2H:nd=2\E[C:up=2\E[A:\
	:ce=3\E[K:cd=50\E[J:so=2\E[7m:se=2\E[m:us=2\E[4m:ue=2\E[m:\
	:is=\E>\E[?3l\E[?4l\E[?5l\E[?7h\E[?8h:ks=\E[?1h\E=:ke=\E[?1l\E>:\
	:if=/usr/lib/tabset/vt100:ku=\EOA:kd=\EOB:kr=\EOC:kl=\EOD:\
	:kh=\E[H:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:pt:sr=5\EM:

# Took out xn on vt-132 so autowrap will work right - see vt-100 comment above
# Clive Steward 5 April 1982

d3|vt132|vt-132:\
	:al=99\E[L:dl=99\E[M:ip=7:dc=7\E[P:ei=\E[4l:im=\E[4h:dN#30:tc=vt100:

# This CT8500 termcap imported as-is from Walker Road
# Not well tested but seems to work - Clive Steward 5 April 1982

o2|ct8500|OEM terminal ct8500:\
	:al=\E^L:am:bs:cd=\E^U:ce=\E^T:cl=\E^D:cm=\E|%+ %+ :co#80:da:\
	:db:dc=\E^]:dl=\E^M:ho=\ET:ic=\E^\:kd=\EQ:ke=\E]:kh=\ET:kl=\EP:\
	:kn#7:ko=al,cd,ce,cl,dc,dl,ic:kr=\ES:ks=\E=:ku=\ER:li#25:se=\E :sg#1:\
	:so=\E$:ue=\E :ug#1:up=\ER:us=\E\041:
#
# Tab 132/15 terminal entries revised 3/29/82
#
# Select x-on/off mode, VT132 mode, smooth/jump scroll and tab stops
# from keyboard.
M1|tab132|tab|tab 132/15 with 80 columns:\
	:is=\E<\E[20l\E[}\E[?7h:\
	:al=\E[L:bs:cd=\E[J:ce=\E[K:cl=\E[2J\E[H:cm=\E[%i%d;%dH:co#80:da:db:\
	:dc=\E[P:dl=\E[M:do=\E[B:ei=\E[4l:im=\E[4h:kd=\E[B:kl=\E[D:kr=\E[C:\
	:ku=\E[A:li#24:mi:ms:nd=\E[C:pt:se=\E[m:sf=\ED:so=\E[7m:sr=\EM:\
	:ue=\E[m:ul:up=\E[A:us=\E[4m:
M2|tab132w|tabw|tab 132/15 with 132 columns:\
	:is=\E<\E[20l\E[}\E[?3h\E[?7h:co#132:tc=tab132:
M3|tab132rv|tab 132/15 with 80 columns, reverse video:\
	:is=\E<\E[20l\E[}\E[?5h\E[?7h:tc=tab132:
M4|tab132wrv|tab 132/15 with 132 columns, reverse video:\
	:is=\E<\E[20l\E[}\E[?3h\E[?5h\E[?7h:co#132:tc=tab132:
#
# Tektronix storage terminal entries revised 3/17/82
#
Xa|tek|tek4012|4012|tektronix 4012:\
	:is=\E^O:bs:cl=1000\E^L:co#74:ns:li#35:os:
Xb|tek4013|4013|tektronix 4013:\
	:as=\E^N:ae=\E^O:tc=4012:
Xc|tek4014|4014|tektronix 4014:\
	:is=\E^O\E9:co#81:li#38:dF#1000:tc=tek4012:
Xd|tek4015|4015|tektronix 4015:\
	:as=\E^N:ae=\E^O:tc=4014:
Xe|tek4014sm|4014sm|tektronix 4014 in small font:\
	:is=\E^O\E\072:co#121:li#58:tc=tek4014:
Xf|tek4015sm|4015sm|tektronix 4015 in small font:\
	:as=\E^N:ae=\E^O:tc=4014sm:
Xg|tek4006|4006|tektronix 4006:\
	:bs@:tc=tek4012:
Xh|tek4010|4010|tektronix 4010:\
	:tc=tek4012:
Xi|tek4051|4051|tektronix 4051:\
	:tc=tek4012:
#
# moded to fix home key
#
X5|4025|4027|4024|tek4025|tek4027|tek4024|4025cu|4027cu|tektronix 4024/4025/4027:\
	:is=\41com 31\r\n^_sto 9,17,25,33,41,49,57,65,73\r:\
	:ks=^_lea p4 /h/\r^_lea p8 /k/\r^_lea p6 / /\r^_lea p2 /j/\r^_lea p5 /H/\r:\
	:ke=^_lea p2\r^_lea p4\r^_lea p6\r^_lea p8\r^_lea p5\r:\
	:am:bs:da:db:pt:li#34:co#80:cl=^_era\r\n\n:up=^K:nd=^_rig\r:\
	:al=145^_up\r^_ili\r:dl=^_dli\r:\
	:dc=^_dch\r:im=^_ich\r:ei=^F\n^K:nl=^F\n:\
	:ce=^_dch 80\r:cd=^_dli 50\r:CC=^_: