include bkgdset
call `\002A` getbkgd STDSCR