複製字串

: place over over >r >r char+ swap chars cmove r> r> c! ;

create one 16 chars allot \ define the first string

create two 16 chars allot \ define the second string

s" Greetings!" one place \ initialize string one

one dup \ save the real address

count \ get the length of string one

1+ \ account for the count byte

swap drop \ get the real address

two swap \ get the order right

cmove \ copy the string

two count type cr \ print string two

: place over over >r >r char+ swap chars cmove r> r> c! ;

: copy$ swap dup count 1+ swap drop rot swap cmove ;

create one 32 chars allot

create two 32 chars allot

s" Greetings!" one place

one two copy$