:
#	@(#) greek.sh 23.1 91/08/29 
#
#	Copyright (C) 1988-1991 The Santa Cruz Operation, Inc.
#		All Rights Reserved.
#	The information in this file is provided for the exclusive use of
#	the licensees of The Santa Cruz Operation, Inc.  Such users have the
#	right to use, modify, and incorporate this code into other products
#	for purposes authorized by the license agreement provided they include
#	this notice and the associated copyright notice with any such product.
#	The information in this file is provided "AS IS" without warranty.
#
#	Copyright (c) 1984, 1986, 1987, 1988 AT&T
#	  All Rights Reserved

#	THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T
#	The copyright notice above does not evidence any
#	actual or intended publication of such source code.


TERM=${1--T$TERM}
case $TERM in
-T450|-T450-12|-T1620|-T1620-12)	exec 450;;
-T300)	exec 300;;
-T300-12)	exec 300 +12;;
-T300s)	exec 300s;;
-T300s-12)	exec 300s +12;;
-Thp|-T2621|-T2645|-T2640)	exec hp;;
-T4014|-Ttek)	exec 4014;;
"")	echo 'usage: greek [ -Tterminal ]  ($TERM must be set if arg omitted)' >&2
	exit 1;;
*)	echo "greek: $TERM not implemented" >&2;	exit 1;;
esac
