@prog home.muf
1 999 d
1 i
: main me @ getlink #0 dbcmp not ;
(
	me @ getlink #0 dbcmp if
		me @ "You don't have a home to go to!" notify exit
	then
	0
	begin
		me @ contents dup
	while
		dup #0 moveto swap 1 +
	loop
	pop
	dup if
		1 swap 1 for pop #-3 moveto loop
	else
		pop
	then
	me @ dup location swap dup name " goes home." strcat notify_except
	me @ "You wake up back home, without your possessions." notify
	me @ "You wake up back home." notify
	me @ dup getlink moveto
)
.
c
q