z-quote:zchar — compiling primitive
FORTH
Z"
( [chars<">] -- z* )(
)
;
p4:"z-quote";
scan the input to the next doublequote and create a buffer that holds the chars - return the address of that zero-terminated string-buffer, either POCKET-PAD or ALLOTed into the dictionary.