unalias print
if test -r "${TERMCAP:=/etc/termcap}"
	then termcap="$TERMCAP"
	else termcap=
	fi
tc=
while true
	do tc="$tc"`print -r - "$TERM:$TERMCAP" |
		sed -n "
			/|$TERM"'[|:]/,$s/^/::/
			/^'"$TERM"'[|:]/,$s/^/::/
			/^::/!d
			s/\\$/:\\/
			s/[^\]$/:/
			s/:/::/g
			s/:\.[^:]*://g
			s/\(:[^:][^:]\)[=#]\([^:]*\)/\1='\''\2'\''/g
			s/\(:[^: 	][^:]\):/\1=/g
			s/:[^:=][^:=]*://g
			s/::*/ /g

			s/\\E/\\033/g
			s/\^@/\\000/g
			s/\^[Aa]/\\001/g
			s/\^[Bb]/\\002/g
			s/\^[Cc]/\\003/g
			s/\^[Dd]/\\004/g
			s/\^[Ee]/\\005/g
			s/\^[Ff]/\\006/g
			s/\^[Gg]/\\007/g
			s/\^[Hh]/\\b/g
			s/\^[Ii]/\\t/g
			s/\^[Jj]/\\n/g
			s/\^[Kk]/\\v/g
			s/\^[Ll]/\\f/g
			s/\^[Mm]/\\r/g
			s/\^[Nn]/\\016/g
			s/\^[Oo]/\\017/g
			s/\^[Pp]/\\020/g
			s/\^[Qq]/\\021/g
			s/\^[Rr]/\\022/g
			s/\^[Ss]/\\023/g
			s/\^[Tt]/\\024/g
			s/\^[Uu]/\\025/g
			s/\^[Vv]/\\026/g
			s/\^[Ww]/\\027/g
			s/\^[Xx]/\\030/g
			s/\^[Yy]/\\031/g
			s/\^[Zz]/\\032/g
			s/\^\[/\\033/g
			s/\^\\/\\034/g
			s/\^]/\\035/g
			s/\^^/\\036/g
			s/\^_/\\037/g
			p
			/[^\]$/q
		  ' $termcap`
	case ${tc%=*} in
		*\ tc)	term="${tc##*='}"
			term="${term%'*}"
			case $term in
				"$TERM")	break;;
				*)		TERM="$term";;
				esac;;
		*)	break;;
		esac
	done
bw=\'\' am=\'\' xb=\'\' xs=\'\' xn=\'\' eo=\'\' gn=\'\' hc=\'\' km=\'\' \
	hs=\'\' in=\'\' da=\'\' db=\'\' mi=\'\' ms=\'\' os=\'\' es=\'\' \
	xt=\'\' hz=\'\' ul=\'\' xo=\'\'
unset co it li lm sg pb vt ws bt bl cr cs ct cl ce cd ch CC cm do ho vi le \
	CM ve nd ll up vs dc dl ds hd as mb md ti dm mh im mp mr mk so us ec \
	ae me te ed ei se ue vb ff fs i1 i2 i3 if ic al ip kb ka kC kt kD kL \
	kd kM kE kS k0 k1 ka k2 k3 k4 k5 k6 k7 k8 k9 kh kI kA kl kH kN kP kr \
	kF kR kT ku ke ks l0 l1 la l2 l3 l4 l5 l6 l7 l8 l9 mm mo nw pc DC DL \
	DO IC SF AL LE RI SR UP pk pl px ps pf po rp r1 r2 r3 rf rc cv sc sf \
	sr sa st wi ta ts uc hu iP K1 K3 K2 K4 K5 pO
eval "$tc"
{ print -r - "function tput {
	case \$1 in
		bw)	$bw;;
		am)	$am;;
		xsb)	$xb;;
		xhp)	$xs;;
		xenl)	$xn;;
		eo)	$eo;;
		gn)	$gn;;
		hc)	$hc;;
		km)	$km;;
		hs)	$hs;;
		in)	$in;;
		da)	$da;;
		db)	$db;;
		mir)	$mi;;
		msgr)	$ms;;
		os)	$os;;
		eslok)	$es;;
		xt)	$xt;;
		hz)	$hz;;
		ul)	$ul;;
		xon)	$xo;;"
print -r - "		cols)	echo '$co';;
		it)	echo '$it';;
		lines)	echo '$li';;
		lm)	echo '$lm';;
		xmc)	echo '$sg';;
		pb)	echo '$pb';;
		vt)	echo '$vt';;
		wsl)	echo '$ws';;
		cbt)	echo '$bt';;
		bel)	echo '$bl';;
		cr)	echo '$cr';;
		csr)	echo '$cs';;
		tbc)	echo '$ct';;
		clear)	echo '$cl';;
		el)	echo '$ce';;
		ed)	echo '$cd';;
		hpa)	echo '$ch';;
		cmdch)	echo '$CC';;
		cup)	echo '$cm';;
		cud1)	echo '$do';;
		home)	echo '$ho';;
		civis)	echo '$vi';;
		cub1)	echo '$le';;
		mrcup)	echo '$CM';;
		cnorm)	echo '$ve';;
		cuf1)	echo '$nd';;
		ll)	echo '$ll';;
		cuu1)	echo '$up';;
		cvvis)	echo '$vs';;
		dch1)	echo '$dc';;
		dl1)	echo '$dl';;
		dsl)	echo '$ds';;
		hd)	echo '$hd';;
		smacs)	echo '$as';;
		blink)	echo '$mb';;
		bold)	echo '$md';;
		smcup)	echo '$ti';;
		smdc)	echo '$dm';;
		dim)	echo '$mh';;"
print -r - "		smir)	echo '$im';;
		prot)	echo '$mp';;
		rev)	echo '$mr';;
		invis)	echo '$mk';;
		smso)	echo '$so';;
		smul)	echo '$us';;
		ech)	echo '$ec';;
		rmacs)	echo '$ae';;
		sgr0)	echo '$me';;
		rmcup)	echo '$te';;
		rmdc)	echo '$ed';;
		rmir)	echo '$ei';;
		rmso)	echo '$se';;
		rmul)	echo '$ue';;
		flash)	echo '$vb';;
		ff)	echo '$ff';;
		fsl)	echo '$fs';;
		is1)	echo '$i1';;
		is2)	echo '$i2';;
		is3)	echo '$i3';;
		if)	echo '$if';;
		ich1)	echo '$ic';;
		il1)	echo '$al';;
		ip)	echo '$ip';;
		kbs)	echo '$kb';;
		ktbc)	echo '$ka';;
		kclr)	echo '$kC';;
		kctab)	echo '$kt';;
		kdch1)	echo '$kD';;
		kdl1)	echo '$kL';;
		kcud1)	echo '$kd';;
		krmir)	echo '$kM';;
		kel)	echo '$kE';;
		ked)	echo '$kS';;
		kf0)	echo '$k0';;
		kf1)	echo '$k1';;
		kf10)	echo '$ka';;
		kf2)	echo '$k2';;
		kf3)	echo '$k3';;"
print -r - "		kf4)	echo '$k4';;
		kf5)	echo '$k5';;
		kf6)	echo '$k6';;
		kf7)	echo '$k7';;
		kf8)	echo '$k8';;
		kf9)	echo '$k9';;
		khome)	echo '$kh';;
		kich1)	echo '$kI';;
		kil1)	echo '$kA';;
		kcub1)	echo '$kl';;
		kll)	echo '$kH';;
		knp)	echo '$kN';;
		kpp)	echo '$kP';;
		kcuf1)	echo '$kr';;
		kind)	echo '$kF';;
		kri)	echo '$kR';;
		khts)	echo '$kT';;
		kcuu1)	echo '$ku';;
		rmkx)	echo '$ke';;
		smkx)	echo '$ks';;
		lf0)	echo '$l0';;
		lf1)	echo '$l1';;
		lf10)	echo '$la';;
		lf2)	echo '$l2';;
		lf3)	echo '$l3';;
		lf4)	echo '$l4';;
		lf5)	echo '$l5';;
		lf6)	echo '$l6';;
		lf7)	echo '$l7';;
		lf8)	echo '$l8';;
		lf9)	echo '$l9';;
		smm)	echo '$mm';;
		rmm)	echo '$mo';;
		nel)	echo '$nw';;
		pad)	echo '$pc';;
		dch)	echo '$DC';;
		dl)	echo '$DL';;
		cud)	echo '$DO';;
		ich)	echo '$IC';;
		indn)	echo '$SF';;
		il)	echo '$AL';;
		cub)	echo '$LE';;"
print -r - "		cuf)	echo '$RI';;
		rin)	echo '$SR';;
		cuu)	echo '$UP';;
		pfkey)	echo '$pk';;
		pfloc)	echo '$pl';;
		pfx)	echo '$px';;
		mc0)	echo '$ps';;
		mc4)	echo '$pf';;
		mc5)	echo '$po';;
		rep)	echo '$rp';;
		rs1)	echo '$r1';;
		rs2)	echo '$r2';;
		rs3)	echo '$r3';;
		rf)	echo '$rf';;
		rc)	echo '$rc';;
		vpa)	echo '$cv';;
		sc)	echo '$sc';;
		ind)	echo '$sf';;
		ri)	echo '$sr';;
		sgr)	echo '$sa';;
		hts)	echo '$st';;
		wind)	echo '$wi';;
		ht)	echo '$ta';;
		tsl)	echo '$ts';;
		uc)	echo '$uc';;
		hu)	echo '$hu';;
		iprog)	echo '$iP';;
		ka1)	echo '$K1';;
		ka3)	echo '$K3';;
		kb2)	echo '$K2';;
		kc1)	echo '$K4';;
		kc3)	echo '$K5';;
		mc5p)	echo '$pO';;
		*)	false;;
		esac
	} "; } | grep -v "''"

