********************************************************************** * 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 ; **********************************************************************