@prog subway-lookp.muf
1 99999 d
1 i
: main
	loc @ "_subway-busy" getpropstr
	dup "" strcmp if
		atoi dbref
		dup ok? if
			"_subway-station" getpropstr
			"" strcmp if
				"A train stands here, its doors open."
			else
				"There is no train here."
			then
		else
			pop "Subway internals out of order."
		then
	else
		pop "There is no train here."
	then
	me @ swap notify
;
.
c
q