1include start 2# 0x3401 takes 2 columns 3# test multi-column 4wchar WSTR [0x41, 0x42, 0x3401, 0x43, 0x44, 0x45] 5call OK addwstr $WSTR 6call OK refresh 7call2 0 7 getyx STDSCR 8compare addwstr1.chk 9 10# test special character processing 11wchar CR "\r" 12call OK addwstr $CR 13call OK refresh 14compare addwstr2.chk 15 16# test wrapping 17call OK move 2 77 18call OK addwstr $WSTR 19call OK refresh 20compare addwstr3.chk 21