) frogd
ELF32X86_64 Frog Version 1.0d

"foo" /go C" isn't unique

\ i. { ( -- xt ) Zero state quotation
\ anonymous compile in marked allotted memory
\ i. {} Release marked allotted memory
\ i. run { xt -- ) Execute xt until true flag received then release memory
\ i. run1 ( xt --) Execute xt once and release marked memory
\ i. runn ( xt n -- ) Execute xt n times and release marked memory
: for ( xt -- ) \ Do xt for each string item on data stack
depth 1-
0 max runn ;
\
\ i. fdread ( s xt -- ) file data read
\ s string, file name
\ xt ( a u -- ) process a line of data
\
\ : read ( s -- ) \ Print file
\ {: cr type ;} fdread ;

\ Example1:
xx
c" txt/rubyatLI" c" txt/wlan" c" txt/rubyatXLIX" { cr read } for

XLIX.
Tis all a Chequer-board of Nights and Days,
Where Destiny with Men for Pieces plays:
Hither and thither moves, and mates, and slays,
And one by one back in the Closet lays.

April is the cruellest month, breeding
Lilacs out of the dead land, mixing
Memory and desire, stirring
Dull roots with spring rain.

LI.
The Moving Finger writes; and, having writ,
Moves on: nor all thy Piety nor Wit
Shall lure it back to cancel half a Line,
Nor all thy Tears wash out a Word of it.

\ Example2:
15 to LMARGIN \ set left margin (used by cr+)

xx
c" txt/rubyatLI" c" txt/wlan" c" txt/rubyatXLIX"
{ cr {: cr+ type ;} fdread } for

XLIX.
Tis all a Chequer-board of Nights and Days,
Where Destiny with Men for Pieces plays:
Hither and thither moves, and mates, and slays,
And one by one back in the Closet lays.

April is the cruellest month, breeding
Lilacs out of the dead land, mixing
Memory and desire, stirring
Dull roots with spring rain.

LI.
The Moving Finger writes; and, having writ,
Moves on: nor all thy Piety nor Wit
Shall lure it back to cancel half a Line,
Nor all thy Tears wash out a Word of it.

-fin-
ok