@prog air-dig.muf
1 999 d
1 i
: parent #17780 ;
: top #17719 ;
: room-desc "@576" ;
: pick-exit-lock "#17718" ;
: dig-levels (aboveroom prefix n -- )
	"d;down;descend" 4 pick open
	dup pick-exit-lock lock
	4 pick addlink
	1 6 1 for
		intostr
		( aboveroom prefix nlev rn )
		3 pick over strcat dup parent dig pop
		( aboveroom prefix nlev rn name new-room )
		dup room-desc setdesc
		3 pick 7 pick open dup 3 pick addlink
		( aboveroom prefix nlev rn name new-room new-exit )
		7 pick "down" rmatch "_rexit" 6 pick strcat
		rot int intostr 0 addprop
		"u;up;ascend" over open 7 pick addlink
		swap " " strcat
		4 pick 1 - dup if dig-levels else pop pop pop then
		pop
	loop
	pop pop pop
;
: main
	top "Room " 3 dig-levels
	me @ "Done." notify
;
.
c
q