+\ Standard throw code
+\ See: http://lars.nocrew.org/forth2012/exception.html#table:throw
+-72 constant THROW_RENAME_FILE
+
+\ Copy the string C-ADDR/U1 to C-ADDR2 and append a NUL.
+: PLACE-CSTR ( c-addr1 u1 c-addr2 -- )
+ 2dup 2>r ( c-addr1 u1 c-addr2 ) ( r: u1 c-addr2 )
+ swap cmove ( ) ( r: u1 c-addr2 )
+ 0 2r> + c! ( )
+;
+