setenv PATH=.cmd,m:,,f:\bin
setenv SUFF=,.prg,.ttp,.tos
setenv LIBPATH=m:,f:\lib
setenv INCDIR=f:\mwcincl
setenv TMPDIR=m:\
setenv HOME=d:\cad\scap
setenv EDITOR=e
setenv TIMEZONE=PST:0
hidemouse			# turn off the mouse cursor
setenv ESC=''			# that's an escape character hiding in there
setenv CLS=${ESC}E
setenv FF=''
echo -n $CLS${ESC}e${ESC}v	# clear screen, text cursor on, line wrap on
setenv DEFREZ=`getrez`		# fetch the screen resolution
# the double quotes keep the palette from being split into separate words.
setenv DEFPAL="`getpal`"	# and the screen palette
setenv MSHREZ=$DEFREZ		# initialize our own resolution
setenv MSHPAL="$DEFPAL"		# and our own palette
if (equal $DEFREZ 0) (		# if we're in low resolution
	setenv MSHREZ=1
	setrez $MSHREZ			# go to medium resolution
)
set prompt='$cwd> '		# a dos style current drive prompt
set history=16
set in .cmd pwd=( echo $cwd )
set in .cmd gemset=(
	echo -n ${ESC}f		# text cursor off
	setrez $DEFREZ		# reset resolution
	setpal $DEFPAL		# reset palette
	showmouse		# mouse cursor on
)
set in .cmd mshset=(
	hidemouse		# mouse cursor off
	setrez $MSHREZ		# shell resolution
	setpal $MSHPAL		# shell palette
	echo -n $CLS${ESC}e${ESC}v
)
set in .cmd gem=(
	gemset			# set gem screen
	$1 2>aux: >con: <con:	# execute the command
	set t=$status		# get the exit status of $1
	mshset			# restore shell screen
	exit $status		# return the status, fat chance!
)
set in .cmd tos=( $1 2>aux: >con: <con: )
set in .cmd h=( set in history )
set in .cmd d=( ls -w )
set in .cmd dt=( ls -wt )
set in .cmd cls=( echo -n $CLS )
set in .cmd ff=( echo -n $FF >prn: )
set in .cmd b12=( rsconf 7 0 -1 -1 -1 -1 )
set in .cmd b24=( rsconf 4 0 -1 -1 -1 -1 )
set in .cmd b19=( rsconf 0 0 -1 -1 -1 -1 )
date
