home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Harvest C 1.3 / Source Code / join.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-03-18  |  404 b   |  26 lines  |  [TEXT/KAHL]
  1. #include <stdio.h>
  2.  
  3. int main()
  4. {
  5.     FILE *f1;
  6.     FILE *f2;
  7.     FILE *g;
  8.     int c;
  9.     f1 = fopen("vineyard:eric:incoming:tickle.1","r");
  10.     f2 = fopen("vineyard:eric:incoming:tickle.2","r");
  11.     g = fopen("vineyard:eric:incoming:tickle.all","w");
  12.     c = getc(f1);
  13.     while (c != EOF) {
  14.         putc(c,g);
  15.         c = getc(f1);
  16.     }
  17.     c = getc(f2);
  18.     while (c != EOF) {
  19.         putc(c,g);
  20.         c = getc(f2);
  21.     }
  22.     fclose(f1);
  23.     fclose(f2);
  24.     fclose(g);
  25. }
  26.