@prog prog-finder.muf
1 999 d
1 i
: say me @ swap notify ;
: dbref-name
	dup name "(#" strcat over int intostr strcat
	swap flagstr strcat ")" strcat
;
: src-dbref-cmp
(
	over exit? over exit? and if
		location swap location >
	else
		dup exit? if
			pop pop 1
		else
			over exit? if
				pop pop 0
			else
)
				int swap int >
(
			then
		then
	then
)
;
: main
	dup not if
		pop "Usage:" command @ "playername" 3 " " rimplode say exit
	then
	.pmatch+
	dup player? not if pop "That's not a player!" say exit then
	begin nextowned dup while
		dup program? if
			dup dbref-name ":" strcat
			over backlinks
			dup 0 = if
				pop " No backlinks." strcat
			else
				' src-dbref-cmp .sort
				"" swap 1 -1 for pop
					" " strcat swap dbref-name strcat
				loop
				strcat
			then
			78 strcut pop say
		then
	loop
;
.
c
q