APPEND-CHAR ANEW APPEND-CHAR
APPEND-CHAR
* APPEND-CHAR ( char addr -- )

Append _char_ to the counted string at _addr_. 
 : APPEND-CHAR   DUP >R  COUNT  DUP 1+ R> C!  +  C! ;

forth_usual forthword synonym