home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / LPUTS.C < prev    next >
Encoding:
Text File  |  1985-01-24  |  343 b   |  15 lines
  1. main()    /* lputs.c -- illustrates lputs() as a typewriter program */
  2.  
  3. {
  4.     char ac[128];
  5.  
  6.     puts("I'm a typewriter. When you want to stop, begin your last");
  7.     puts("line with a $. Please type below:");
  8.     do {
  9.         gets(ac);
  10.         lputs(ac);
  11.         lputc('\n');
  12.     } while (ac[0] != '$');
  13.     puts("Correct answer (on printer) is what you typed.");
  14. }
  15.