21 lines
343 B
Forth
21 lines
343 B
Forth
( Documentation conventions JCB 14:37 10/26/10)
|
|
|
|
meta
|
|
|
|
: getword ( -- a u )
|
|
begin
|
|
bl word count dup 0=
|
|
while
|
|
2drop refill true <> abort" Failed to find word"
|
|
repeat
|
|
;
|
|
|
|
: ================================================================
|
|
begin
|
|
getword
|
|
nip 64 =
|
|
until
|
|
;
|
|
|
|
target
|