* $PICK ( u $: au$ ... a0$ -- au$ ... a0$ au$ ) Copy the u-th string stack entry to the top of the string stack. The string value is not copied. Throw an error if the input string stack does not have at least u+1 items. "string-pick"
$PICK
( u $: au$ ... a0$ -- au$ ... a0$ au$ )
FORTH/DEF dstrings ordinary primitive