LOGFILE=orphans.log
:	${HOME?}
:	${ORPHANS=$HOME}
echo $HOME $ORPHANS
USEFILE=$HOME/$LOGFILE
if test -s $ORPHANS/$LOGFILE
then
USEFILE=$ORPHANS/$LOGFILE
fi
:
>> $USEFILE
:
FROM=$1;shift;echo "called from $FROM"
FUNC=$1;shift;echo "function is $FUNC"
scan()
{
cat $1
return 0
}
case $FUNC in
	F)	scan $USEFILE;;
	R)	scan $USEFILE;;
	E)	echo $@ >> $USEFILE;;
	S)	echo $@ >> $USEFILE;;
	*)	echo "($0) <unknown function> $FUNC";exit 69;;
esac
:
echo -n "return? "
read x