1*ce321bb0Sblymninclude start 2*ce321bb0Sblymn# 0x3401 takes 2 columns 3*ce321bb0Sblymn# test multi-column 4*ce321bb0Sblymnwchar WSTR [0x41, 0x42, 0x3401, 0x43, 0x44, 0x45] 5*ce321bb0Sblymncall OK mvaddnwstr 10 12 $WSTR 4 6*ce321bb0Sblymncall OK refresh 7*ce321bb0Sblymncall2 10 17 getyx STDSCR 8*ce321bb0Sblymncompare mvaddnwstr1.chk 9*ce321bb0Sblymn 10*ce321bb0Sblymn# test special character processing 11*ce321bb0Sblymnwchar CR ["\r", "a", "\r", "b", "c"] 12*ce321bb0Sblymncall OK mvaddnwstr 0 12 $CR 4 13*ce321bb0Sblymncall OK refresh 14*ce321bb0Sblymncompare addnwstr2.chk 15*ce321bb0Sblymn 16*ce321bb0Sblymn# test wrapping 17*ce321bb0Sblymncall OK mvaddnwstr 2 77 $WSTR -1 18*ce321bb0Sblymncall OK refresh 19*ce321bb0Sblymncompare addwstr3.chk 20