include start

call pad newpad 5 5
call sub subpad $pad 3 3 1 1
# the following prefresh mapping is used in pechochar/pecho_wchar
call OK prefresh $pad 0 0 0 0 5 5

# reversing the order of following lines will require calling touchwin on pad
call OK pechochar $sub `\001B`
call OK pechochar $pad `\002A`
compare pechochar1.chk

cchar wch 0x400 [0x3401]
call OK wmove $sub 1 0 
call OK pecho_wchar $sub $wch
call OK pecho_wchar $pad $wch
compare pechochar2.chk