TH'POCKET TAB THEN
TH'POCKET
* TH'POCKET ( n -- addr u )

returns the specified pocket as a S" string reference

FORTH/BASE misc ordinary primitive