: main
	prog "_loc" getpropstr atoi dbref 1
	begin "wiz" over intostr strcat 3 pick
	swap getpropstr dup while
		atoi dbref
		1 begin "_motd" over intostr strcat 3 pick
		swap getpropstr dup while
			over 1 = if
			"--------------------------------------"
			4 pick name "'s MOTD ]" strcat
			"[ " swap strcat dup strlen 2 / 38 swap -
			over strlen 2 % not if 1 + then 3 pick swap
			strcut pop swap dup strlen 2 / 4 rotate swap
			strcut swap pop strcat strcat
			"-" strcat me @ swap notify
			then
			me @ swap notify 1 + loop
		pop pop pop 1 + loop
	"---------------------------------------"
	dup strcat me @ swap notify
	pop pop pop
;
22 lines displayed.