home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / jsage / zsus / progpack / cvidlib.lbr / TINIT.CQ / TINIT.C
Encoding:
Text File  |  1992-05-13  |  1.0 KB  |  36 lines
  1. /***********************************************************
  2.  *    Name    : TINIT
  3.  *
  4.  *    Usage   : tinit()
  5.  *
  6.  *    Inputs  : none. Expects vidptr to point to the ZCPR3
  7.  *          termcap entry.
  8.  *          
  9.  *    Returns : TRUE if terminal initialized else FALSE
  10.  *          
  11.  *    Date Written : 86 May 10
  12.  **********************************************************/
  13.  
  14. tinit()
  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.     delay = 0;
  23.     c += 23;
  24.     c = vidskp(c);    /* skip CL string */
  25.     c = vidskp(c);    /* skip CM string */
  26.     c = vidskp(c);    /* skip CE string */
  27.     c = vidskp(c);    /* skip SO string */
  28.     c = vidskp(c);    /* skip SE string */
  29.     if(!*c)        /* return FALSE if no term init string */
  30.     return(0);
  31.     vidout(delay,c);
  32.     return(1);        /* return TRUE when terminal initialized */
  33. }
  34.  
  35. /********************* End Of Function ********************/
  36.