include waddchstr
call OK wmove $win1 0 0
call2 OK `\004a\004b\004c\000 ` winchnstr $win1 5
call OK wmove $win1 1 0
call2 OK `\000 \006d\006e\006f` winchnstr $win1 5
call2 OK `\000 \006d\006e\006f\006g\006h` winchstr $win1