@prog bank-acct.muf
1 999 d
1 i
: say me @ swap notify ;
: main
	.pmatch+
	dup player? not if pop "That is no player!" say exit then
	int intostr
	prog ".holder" getpropstr atoi dbref
	prog ".moneyfmt" getpropstr 3 pick "%d" subst over swap
	over over prop-exists? not if
		pop pop pop atoi dbref name " has no account." strcat say
		exit
	then
	getpropstr 3 pick atoi dbref name " has $" strcat swap strcat
	"; account last touched " strcat
	over prog ".datefmt" getpropstr 5 pick "%d" subst getpropstr atoi
	ctime strcat say
	pop pop
;
.
c
q