home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / STRIP.C < prev    next >
Encoding:
Text File  |  1985-02-17  |  847 b   |  41 lines
  1. /* RUN/C version of STRIP */
  2.  
  3. /*
  4. Disclaimer: This program illustrates some aspects of the C language.
  5. It is supplied free of charge and placed in the public domain. No
  6. support is available for STRIP.C from LBA or Age of Reason Co.
  7. */
  8. main()    /* strip.c */
  9. {
  10.     FILE *fi, *fo;
  11.     int c, echo;
  12.     char source[80], dest[80];
  13.  
  14.     puts("Source file?");
  15.     gets(source);
  16.     puts("Destination file?");
  17.     gets(dest);
  18.     echo = 0;
  19.     puts("Echo (Y/N)?");
  20.     c = getchar();
  21.     putchar('\n');
  22.     if (c == 'Y'|| c == 'y') echo = 1;
  23.     if((fi = fopen(source,"rb")) == NULL) {
  24.         printf("Can't open %s\n",source);
  25.         exit();
  26.     }
  27.     if((fo = fopen(dest,"wb")) == NULL) {
  28.         printf("Can't open %s\n",dest);
  29.         exit();
  30.     }
  31.     while ((c = getc(fi)) != EOF) {
  32.         c = c & 127;
  33.         putc(c,fo);
  34.         if (echo)
  35.             putchar(c);
  36.     }
  37.     putc(26,fo);
  38.     fclose(fi);
  39.     fclose(fo);
  40. }
  41.