/***********************************************************
 *	Name    : CLS
 *
 *	Usage   : cls()
 *
 *	Inputs  : none. Expects vidptr to point to the ZCPR3
 *		  termcap entry.
 *		  
 *	Returns : TRUE if screen cleared else FALSE
 *		  
 *	Date Written : 86 May 10
 **********************************************************/

cls()
{
    extern char *vidptr;
    char *c,delay;
    
    c = vidptr;
    if (*c <= ' ')	/* return FALSE if no terminal  */
	return(0);
    c += 20;
    delay = *c;
    c += 3;
    if(!*c)		/* return FALSE if no cls string */
	return(0);
    vidout(delay,c);
    return(1);		/* return TRUE when screen cleared */
}

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