goto _
	KERse -- Kernel interface for savepl
	Revised 17 Jan 1980 by R. B. Neely
	@(#)KERse.sh	1.14.1.2
HACK

: _

if $n -gt 1 then
    echo "Usage: KERse [revnum]"
    exit 1
endif

echo " get -r1.1 /misc/newKernel/udf/s.BUILD.mod"
get -r1.1 /misc/newKernel/udf/s.BUILD.mod
if $r -ne 0 exit 1
savepl KER.mod /misc/newKernel/udf/s.KER.epl $1 <--
if $r -ne 0 exit 1
rm -f BUILD.mod
exit 0
