@prog subway-lookt.muf
1 99999 d
1 i
: main
	loc @ "_subway-station" getpropstr
	dup "" strcmp if
		"The train is in " swap
		atoi dbref "_subway-name" getpropstr strcat
		"; its doors stand open." strcat
	else
		pop "The train is moving in the tunnel."
	then
	me @ swap notify
;
.
c
q