@prog pwchk.muf
1 999 d
1 i
: say me @ swap notify ;
: main
	dup " " instr dup if
		1 - strcut 1 strcut swap pop
		"*" rot strcat match
		dup player? not if
			"Can't turn that into a player!" say pop pop exit
		then
		swap passwordchk if "Success." else "Failure." then say
	then
;
.
c
q