TekPage()
TekPage(void)
TekPage(){	register TScreen *screen = &term->screen;	register TekLink *tek;	XClearWindow(screen->display, TWindow(screen));	screen->cur_X = 0;	screen->cur_Y = TEKHOME;	screen->margin = MARGIN1;	screen->page = screen->cur;	if(screen->TekGIN)		TekGINoff();	tek = TekRecord = &Tek0;	tek->fontsize = screen->cur.fontsize;	tek->count = 0;	tek->ptr = tek->data;	tek = tek->next;	if(tek)		do {			TekLink *tek2 = tek->next;			free((char *)tek);			tek = tek2;		} while(tek);	TekRecord->next = (TekLink *)0;	TekRefresh = (TekLink *)0;	Ttoggled = TRUE;	Tparsestate = curstate = Talptable;	/* Tek Alpha mode */}