home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / zsus / progpack / cvidlib.lbr / CLS.CQ / CLS.C
Encoding:
Text File  |  1992-05-13  |  768 b   |  32 lines
  1. /***********************************************************
  2.  *    Name    : CLS
  3.  *
  4.  *    Usage   : cls()
  5.  *
  6.  *    Inputs  : none. Expects vidptr to point to the ZCPR3
  7.  *          termcap entry.
  8.  *          
  9.  *    Returns : TRUE if screen cleared else FALSE
  10.  *          
  11.  *    Date Written : 86 May 10
  12.  **********************************************************/
  13.  
  14. cls()
  15. {
  16.     extern char *vidptr;
  17.     char *c,delay;
  18.     
  19.     c = vidptr;
  20.     if (*c <= ' ')    /* return FALSE if no terminal  */
  21.     return(0);
  22.     c += 20;
  23.     delay = *c;
  24.     c += 3;
  25.     if(!*c)        /* return FALSE if no cls string */
  26.     return(0);
  27.     vidout(delay,c);
  28.     return(1);        /* return TRUE when screen cleared */
  29. }
  30.  
  31. /********************* End Of Function ********************/
  32.