@prog subway-pay-succ.muf
1 999 d
1 i
: main
	prog "_staff" getpropstr atoi dbref
	"_staff-" me @ int intostr strcat getpropstr "" strcmp if
		"As subway staff, you are permitted free passage..."
	else
		"You pay the fare and enter the subway..."
	then
	me @ swap notify
;
.
c
q