doc.fs 343 B

1234567891011121314151617181920
  1. ( Documentation conventions JCB 14:37 10/26/10)
  2. meta
  3. : getword ( -- a u )
  4. begin
  5. bl word count dup 0=
  6. while
  7. 2drop refill true <> abort" Failed to find word"
  8. repeat
  9. ;
  10. : ================================================================
  11. begin
  12. getword
  13. nip 64 =
  14. until
  15. ;
  16. target