/***********************************************************
 *	Name    : TINIT
 *
 *	Usage   : tinit()
 *
 *	Inputs  : none. Expects vidptr to point to the ZCPR3
 *		  termcap entry.
 *		  
 *	Returns : TRUE if terminal initialized else FALSE
 *		  
 *	Date Written : 86 May 10
 **********************************************************/

tinit()
{
    extern char *vidptr;
    char *c,delay;

    c = vidptr;
    if(*c <= ' ')	/* return FALSE if no terminal */
	return(0);
    delay = 0;
    c += 23;
    c = vidskp(c);	/* skip CL string */
    c = vidskp(c);	/* skip CM string */
    c = vidskp(c);	/* skip CE string */
    c = vidskp(c);	/* skip SO string */
    c = vidskp(c);	/* skip SE string */
    if(!*c)		/* return FALSE if no term init string */
	return(0);
    vidout(delay,c);
    return(1);		/* return TRUE when terminal initialized */
}

/********************* End Of Function ********************/