home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / UNGETCH.C < prev    next >
Encoding:
C/C++ Source or Header  |  1985-01-24  |  391 b   |  20 lines
  1. #define MAXLEN 50
  2.  
  3. main()    /* ungetch.c -- illustrates un-get console function ungetch() */
  4. {
  5.     char c, a[MAXLEN];
  6.     int i;
  7.  
  8.     puts("Type something, please:");
  9.     i = 0;
  10.     while ((c = getch()) != '\n' && i < (MAXLEN - 1)) {
  11.         a[i++] = c;
  12.         if (c == 'e')
  13.             ungetch(c);
  14.     }
  15.     a[i] = '\0';
  16.     puts("");
  17.     puts(a);
  18.     puts("Correct output: Your input up to the first e, then all e's");
  19. }
  20.