home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c025 / 1.ddi / FTELL.C < prev    next >
Encoding:
Text File  |  1985-02-16  |  400 b   |  18 lines
  1. main()    /* ftell.c -- illustrates use of ftell() */
  2. {
  3.     long pos;
  4.     int ret;
  5.     FILE *fi, *fo;
  6.     char c, source[25], dest[25];
  7.  
  8.     puts("Warning: writes over contents of named file");
  9.     printf("test filename? ");
  10.     gets(source);
  11.     fi = fopen(source, "w+");
  12.     ret = fputs("abcdefghijklmnopqrstuvwxyz", fi);
  13.     pos = ftell(fi);
  14.     printf("file position is %ld\n", pos);
  15.     fclose(fi);
  16.     puts("Done");
  17. }
  18.