: main
	dup not if
		pop me @ name
	then
	.pmatch dup not if
		pop "Your mind finds no connection to a player "
		"with that name." strcat me @ swap notify exit then
	"An imprint is formed on your mind..." me @ swap notify
	"NAME: " over name strcat me @ swap notify
	"RACE: " over "*race" getpropstr dup not if
		pop "Human" then
	strcat me @ swap notify
	"LEVL: " over "@level" getpropstr strcat me @ swap notify
	"SKIL: None" over "B" flag? if
		pop "SKIL: Build" then
	over "M" flag? if
		pop "SKIL: Magic" then
	over "W" flag? if
		pop "SKIL: Wizard" then
	me @ swap notify
	"ABIL: All globals" #0 exits begin dup while
		dup "_abil" getpropstr if
			3 pick "@level" getpropstr atoi
			over ".level" getpropstr atoi >= if
				dup "F" flag? not if
					dup name dup ";" instr dup if
						1 - strcut pop
					else
						pop
					then
				else
					dup name
				then
				", " swap strcat rot
				swap strcat swap then
			then
		next
	loop
	pop "." strcat me @ swap notify
	pop
;