V10/630/lib/samuel/samuel.sa

#!/bin/sh
#set -p
PATH=/bin:/usr/bin
file=$1
case "$2" in
-f)	echo "$file"
	cat > $file
	;;
"")	echo -n "$file?"
	read yn < /dev/tty
	case "$yn" in
	[Yy]*)	cat > $file
	esac
esac