@prog desc.muf
1 99 d
1 i
( Idea taken from a program by Tigger and Radagast, rewritten by Mouse )
: say me @ swap notify ;
: main
	dup not if "_dsc" then
	1
	begin
		( prefix n )
		over over intostr strcat
		( prefix n propname )
		trigger @ over prop-exists?
	while
		trigger @ swap getpropstr
		( prefix n propval )
		dup "@" 1 strncmp not over "@@" 2 strncmp and if
			( prefix n propval )
			dup 1 strcut swap pop atoi dbref
			( prefix n propval pgm )
			dup program? if
				( prefix n propval pgm )
				swap pop call
			else
				( prefix n propval pgm )
				pop
				"[ " swap strcat
				": not a program reference ]" strcat
				say
			then
		else
			( prefix n propval )
			dup "@@" 2 strncmp not if 1 strcut swap pop then
			me @ swap pronoun_sub say
		then
		( prefix n )
		1 +
	loop
	( prefix n propval )
	pop pop pop
;
.
c
q