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 ;