home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / REWIND.C < prev    next >
Encoding:
Text File  |  1985-01-24  |  579 b   |  28 lines
  1. main()    /* rewind.c -- demos rewind(); requires a text file on disk */
  2.  
  3. {
  4.     FILE *fi;
  5.     char c, source[25];
  6.     int i;
  7.  
  8.     printf("Name of file to read? ");
  9.     gets(source);
  10.     if ((fi = fopen(source,"r")) == NULL) {
  11.         printf("Can't open %s\n",source);
  12.         exit();
  13.     }
  14.     puts("It begins:");
  15.     for (i = 0; i < 128; i++) {
  16.         c = getc(fi);
  17.         putchar(c);
  18.     }
  19.     puts("\nDa capo:"); /* this may be Latin, but it's all Greek to me. */
  20.     rewind(fi);
  21.     for (i = 0; i < 128; i++) {
  22.         c = getc(fi);
  23.         putchar(c);
  24.     }
  25.     fclose(fi);
  26.     puts("\nCorrect answer is the same thing twice.");
  27. }
  28.