Name
place:toolbelt — ordinary primitive
Synopsis
FORTH
PLACE
( str len addr -- )();
p4:"place";
Description
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 ;