29 lines
1.1 KiB
Text
29 lines
1.1 KiB
Text
( str
|
|
$ ( "In olden times when wishing still helped one, there lived a king "
|
|
"whose daughters were all beautiful, but the youngest was so beautiful "
|
|
"that the sun itself, which has seen so much, was astonished whenever "
|
|
"it shone in her face. Close by the king's castle lay a great dark "
|
|
"forest, and under an old lime tree in the forest was a well, and when "
|
|
"the day was very warm, the king's child went out into the forest and "
|
|
"sat down by the side of the cool fountain, and when she was bored she "
|
|
"took a golden ball, and threw it up on high and caught it, and this "
|
|
"ball was her favorite plaything."
|
|
)
|
|
: ?Text
|
|
& ( wrap
|
|
= txt length line output q rem
|
|
. !arg:(?txt.?length)
|
|
& :?output
|
|
& whl
|
|
' ( @( str$!txt
|
|
: ?line
|
|
(" " %?lastword [?q " " ?rem&!q:~<!length)
|
|
)
|
|
& !lastword " " !rem:?txt
|
|
& !output !line \n:?output
|
|
)
|
|
& str$(!output !txt)
|
|
)
|
|
& out$(str$("72 columns:\n" wrap$(!Text.72)))
|
|
& out$(str$("\n80 columns:\n" wrap$(!Text.80)))
|
|
);
|