\ 4tH library - ANS KEY - Copyright 2012 J.L. Bezemer
\ You can redistribute this file and/or modify it under
\ the terms of the GNU General Public License

\ pForth-like KEY implementation
\ See: http://www.softsynth.com/pforth/pf_faq.php#key

[UNDEFINED] key [IF]
2 string key does> begin dup 1 accept until c@ ;
aka false key?
[THEN]