function f-office ()
{
bold
clear
echo
fig-col
figlet "inx""  ""office"
echo
head-col
echo "A few applications for office and organisation."
info-col
echo
echo "1: Calendar		(calcurse)"
echo "2: Spreadsheet		(sc)"
echo "3: Calculator		(wcalc)"
echo
head-col
echo "Editor Choices"
info-col
echo
echo "4: Nano			(nano)"
echo "5: MC Editor		(mcedit)"
echo "6: Vim			(vim)"
head-col
echo
echo "\"Tabbed\" Office Session"
echo
info-col
echo "7: GNU Screen Office"
echo
head-col
echo "f: Flip colours"
echo "m: INX main menu"
echo "w: Net and Web menu."
echo "x: Give me a command prompt."
info-col
echo
f-ttynum
read -s -n 1
case $REPLY in

	1)
	f-sup
	clear
	calcurse
	f-office
	;;
	2)
	f-sup
	clear
	sc
	f-office
	;;
	3)
	calculator ()
	{
	clear
	fig-col
	figlet Calculator
	echo
	info-col
	echo "1: Run calculator	(wcalc)"
	echo "2: Calculator help	(wcalc -H | less)"
	echo
	fig-col
	echo "Hit any other key to return to the \"office\" menu."
	info-col
	read -s -n 1 CALC
	case $CALC in
		1)
		f-sup
		clear
		white ; bold
		wcalc
		calculator
		;;
		2)
		wcalc -H | less
		calculator
		;;
		*)
		f-office
		;;
	esac
	}
	calculator
	;;
	4)
	f-sup
	nano
	f-office
	;;
	5)
	f-sup
	mcedit
	f-office
	;;
	6)
	f-sup
	vim
	f-office
	;;
	7)
	f-sup
	f-scroffice
	f-tour
	;;
	m)
	f-menu
	;;
	w)
	f-net
	;;
	f)
	export CALL=office
	f-switch
	;;
	x)
	clear
	f-prompt
	;;
	*)
	f-office
	;;
esac
}