* PLACE ( str len addr -- ) Place the string _str len_ at _addr_, formatting it as a counted string. : PLACE 2DUP 2>R 1+ SWAP MOVE 2R> C! ; : PLACE 2DUP C! 1+ SWAP CMOVE ;
PLACE
( str len addr -- )
: PLACE 2DUP 2>R 1+ SWAP MOVE 2R> C! ; : PLACE 2DUP C! 1+ SWAP CMOVE ;
FORTH/DEF toolbelt ordinary primitive