fn f{ du -a $* | sed 's/^.*	//g' }
DISPLAY=:0
heart=♥
lol=ЛУЛ
nine=➈
ss=ᛋᛋ
font=/lib/font/bit/lucidasans/unicode.7.font
#font=/lib/font/bit/vga/unicode.font
black=0x000000FF
white=0xFFFFFFFF
red=0xFF0000FF
green=0x00FF00FF
blue=0x0000FFFF
cyan=0x00FFFFFF
magenta=0xFF00FFFF
yellow=0xFFFF00FF
paleyellow=0xFFFFAAFF
darkyellow=0xEEEE9EFF
darkgreen=0x448844FF
palegreen=0xAAFFAAFF
medgreen=0x88CC88FF
darkblue=0x000055FF
palebluegreen=0xAAFFFFFF
paleblue=0x0000BBFF
bluegreen=0x008888FF
greygreen=0x55AAAAFF
palegreygreen=0x9EEEEEFF
yellowgreen=0x99994CFF
medblue=0x000099FF
greyblue=0x005DBBFF
palegreyblue=0x4993DDFF
purpleblue=0x8888CCFF
grey=0xEEEEEEFF
darkgrey=0x666666FF
if(! test -x /boot/factotum)
	service=unix
if(~ $service unix){
	fn `{echo $prompt(1) | tr -d ' 	 '}{ $* }
	hostname=`{hostname -s}
	os=`{uname}
	prompt=$hostname^' % '
	if(~ $hostname ororo $USER){
		GOROOT=/usr/local/go
		GOARCH=386
		GOOS=openbsd
		CVSROOT=ororo:/home/cvs/bboc-rep
		PATH=$PATH:$HOME/www/dslc/scripts
	}
	if(~ $hostname skw*)
		PATH=/var/www/html/bboc/bin:$PATH
}
if not{
	path=(/bin .)
	upasname=sl@9front.org
	gl=/n/gl
	glwww=$gl/usr/sl/www
	glwerc=$glwww/werc
	ln=/n/ln
	lnwww=$ln/home/sl/www
	lnwerc=$lnwww/werc
	ph=$lnwww/ph.inri.net
	pu=/n/ln/home/pinn/www/pushedunder.com
	www=/usr/sl/www
	werc=$www/werc
	9front=$glwerc/sites/9front.org
	1oct1993=$glwerc/sites/1oct1993.com
	azure=$glwerc/sites/azure.osuny.co.uk
	bl=$glwerc/sites/bell-labs.co
	catv=$glwerc/sites/cat-v.org
	flamesgif=$glwerc/sites/flamesgif.com
	flesh=$werc/sites/flesh.stanleylieber.com
	iawtp=$glwerc/sites/iawtp.com
	img=$werc/sites/img.stanleylieber.com
	inri=$glwerc/sites/inri.net
	linux=$glwerc/sites/linux.stanleylieber.com
	mf=$glwerc/sites/massivefictions.com
	notreally=$glwerc/sites/notreally.info
	okturing=$glwerc/sites/okturing.com
	openbsd=$glwerc/sites/openbsd.stanleylieber.com
	osuny=$glwerc/sites/osuny.co.uk
	osx=$glwerc/sites/osx.stanleylieber.com
	other=$glwerc/sites/other.stanleylieber.com
	plan9=$glwerc/sites/plan9.stanleylieber.com
	pop=$glwerc/sites/pop.inri.net
	qcl=$glwerc/sites/qualitycountrylyrics.com
	read=$glwerc/sites/read.stanleylieber.com
	sl=$glwerc/sites/stanleylieber.com
	ta=$glwerc/sites/textadventure.stanleylieber.com
	url=$glwerc/sites/url.stanleylieber.com
	volksutils=$glwerc/sites/volksutils.com
	vr=$glwerc/sites/vr.stanleylieber.com
	pkg=$plan9/pkg/386
	bind -a $home/bin/rc /bin
	bind -a $home/bin/$cputype /bin
	bind -c $home/tmp /tmp
}
switch($service){
case terminal
	fn term%{ $* }
	>/tmp/swap
	swap /tmp/swap
	plumber
	if(! ~ $sysname holon){
		echo -n accelerated > '#m/mousectl'
		echo -n 'res 3' > '#m/mousectl'
	}
	prompt=('term% ' '	')
	/bin/rc -i
case cpu
	if(test -e /mnt/term/mnt/wsys){
		# rio already running
		wsys=/mnt/term^`{cat /mnt/term/env/wsys}
		bind -a /mnt/term/mnt/wsys /dev
	}
	bind /mnt/term/dev/cons /dev/cons
	bind /mnt/term/dev/consctl /dev/consctl
	bind -a /mnt/term/dev /dev
	prompt=`{cat /dev/sysname}^%' '
	fn `{echo $prompt(1) | tr -d '	 '}{ $* }
	# cpu call from drawterm
	if(! test -e /mnt/term/mnt/wsys)
		plumber
	if(~ $sysname ns)
		bind -a '#P' /dev
	fortune
	if(! test -e /mnt/term/mnt/wsys)
		echo rio -b -w -i $home/lib/riostart
case con
	prompt=`{cat /dev/sysname}^%' '
}