www.delorie.com/gnu/docs/gforth/gforth_42.html

search

	Buy GNU books!

Gforth Manual

3.26.4 Copy input to output

: copy-file ( -- ) begin line-buffer max-line fd-in read-line throw while line-buffer swap fd-out write-file throw repeat ;