home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / FOPEN.C < prev    next >
Encoding:
Text File  |  1985-02-13  |  384 b   |  20 lines
  1. main()    /* fopen.c -- copies a file onto the disk */
  2. {
  3. FILE *fi, *fo;
  4. char source[25], dest[25];
  5. int c;
  6.  
  7.     printf("Input filename? ");
  8.     gets(source);
  9.     printf("Output filename? ");
  10.     gets(dest);
  11.     fi = fopen(source, "r");
  12.     fo = fopen(dest, "w");
  13.     c = 0;
  14.     while((c = getc(fi)) != EOF)
  15.         putc(c, fo);
  16.     fclose(fi);
  17.     fclose(fo);
  18.     puts("Done");
  19. }
  20.