RosettaCodeData/Task/Keyboard-input-Keypress-check/Forth/keyboard-input-keypress-check.fth

variable last-key
: check   key? if key last-key ! then ;