CREATE $string.txt  \ Leo Wong 30 March 02003 fyj +
\ $+! $, $> $allot $place $string.txt c$+!

\ Cell-counted strings
: $allot  ( u -- )  CREATE  0 , CHARS ALLOT ;
: $place  ( ca u $ -- )  2DUP 2>R CELL+ SWAP CHARS MOVE 2R> ! ;
: $,  ( ca u -- )  ALIGN HERE OVER CHARS cell+ ALLOT $place ;
: $>  ( $ -- a )  @+ CHARS + ;
: $+!  ( ca u $ -- )  2DUP  2>R $> SWAP CHARS MOVE  2R> +! ;
: c$+!  ( c $ -- )  DUP >R $> C! 1 R> +! ;