include start
call OK move 14 14
call OK add_wch `\000\000\000\001\000H`
call2 14 15 getyx STDSCR
call OK add_wch `\000\000\000\001\000H`
call OK add_wch `\000\000\000\001\000H`
call OK refresh
compare add_wch1.chk
call OK move 14 79
call OK add_wch `\000\000\000\001\000H`
call2 15 0 getyx STDSCR
call OK refresh
call2 15 0 getyx STDSCR
call OK add_wch `\000\000\000\001\000H`
call2 15 1 getyx STDSCR
call OK refresh
call OK add_wch `\000\000\000\001\000H`
call OK add_wch `\000\000\000\001\000H`
call OK add_wch `\000\000\000\001\000H`
call OK add_wch `\000\000\000\001\000H`
call OK add_wch `\000\000\000\001\000H`
call OK add_wch `\000\000\000\001\000H`
call OK add_wch `\000\000\000\001\000H`
call OK refresh
compare add_wch2.chk
call2 15 8 getyx STDSCR