**********************************************************************
* Name:		WKEY
* Stack:	( --> ob %keycode )
* Desc:		Wait for full key press and then return the object
*		assigned to the key.
**********************************************************************
ASSEMBLE
	CON(1)	8
RPL
xNAME WKEY
::
  CK0
  BlankDA2
  "Perform a keystroke\1F" DISPROW5
  WaitForKey
  2DUP Key>U/SKeyOb UNROT CodePl>%rc.p
;
**********************************************************************