screen.c: add screen_cls() function