create cstr1 ," A sample string"
create cstr2 ," another string"
create buf 256 allot

cstr1 count buf place
s"  and " buf +place
cstr2 count buf +place
buf count type   \ A sample string and another string