home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / GETC.C < prev    next >
Encoding:
Text File  |  1985-01-24  |  523 b   |  27 lines
  1. main()    /* getc.c -- /* simple file copier with console echo */
  2. {
  3.     FILE *fi, *fo;
  4.     int c;
  5.     char source[25], dest[25];
  6.  
  7.     printf("Input filename: ");
  8.     gets(source);
  9.     printf("Output filename: ");
  10.     gets(dest);
  11.     if((fi = fopen(source, "r")) == NULL) {
  12.         printf("\tCan't open %s\n",source);
  13.         exit();
  14.     }
  15.     if((fo = fopen(dest, "w")) == NULL) {
  16.         printf("\tCan't open %s\n",dest);
  17.         exit();
  18.     }
  19.     while((c = getc(fi)) != EOF) {
  20.         putchar(c);
  21.         putc(c, fo);
  22.     }
  23.     fclose(fi);
  24.     fclose(fo);
  25.     puts("\n{DONE}");
  26. }
  27.