$S>-COPY
* $S>-COPY ( $: a$ -- S: a.str )

Drop a$ from the string stack, copy it into data space as a
measured string, and leave it as a Forth string a.str. An
error is thrown if the string length is larger than the
system parameter MAX_DATA_STR (see S,).
"string-s-from-copy"

FORTH/DEF dstrings ordinary primitive