ClearAbove (screen) register TScreen *screen;
ClearAbove (register TScreen *screen)
ClearAbove (screen)register TScreen *screen;{	if (screen->protected_mode != OFF_PROTECT) {		register int row;		for (row = 0; row <= screen->max_row; row++)			ClearInLine(screen, row, 0, screen->max_col + 1);	} else {		register int top, height;		if(screen->cursor_state)			HideCursor();		if((top = -screen->topline) <= screen->max_row) {			if(screen->scroll_amt)				FlushScroll(screen);			if((height = screen->cur_row + top) > screen->max_row)				height = screen->max_row;			if((height -= top) > 0) {				ClearCurBackground(screen,				    top * FontHeight(screen) + screen->border,				    OriginX(screen),				    height * FontHeight(screen),				    Width(screen));			}		}		ClearBufRows(screen, 0, screen->cur_row - 1);	}	if(screen->cur_row - screen->topline <= screen->max_row)		ClearLeft(screen);}