PLACE PICK POCKET
PLACE ( addr1 len addr2 -- )  
<FORTH-83-L&P>
store string addr1/len at addr2 
 simulate:
   : PLACE  2DUP C! 1+ SWAP CMOVE ;

reference: p4_place in ../src/lpf83.c:0265, export CO PLACE