home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / GETCHAR.C < prev    next >
Encoding:
Text File  |  1985-01-24  |  271 b   |  13 lines
  1. main()    /* getchar.c -- demonstrates getchar() */
  2.  
  3. {
  4.  
  5.     char  c;
  6. puts("Type any character\n");
  7.     c = getchar();
  8.     if (c == 1)
  9.         puts("\nSmile, you're on candid computer, you typed a control-A !\n");
  10.     else
  11.         puts("\nYou type something other than a control-A");
  12. }
  13.