home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBO9.ZIP / FCOPY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-09-09  |  946 b   |  38 lines
  1. PROGRAM FCOPY;
  2.  
  3. CONST
  4.    BUFSIZE = 200;
  5.    BUFBYTESIZE = 25600;
  6.  
  7. VAR
  8.    SOURCE,
  9.    DESTINATION: FILE;
  10.    SOURCENAME,
  11.    DESTINATIONNAME: STRING[14];
  12.    BUFFER: ARRAY[1..BUFBYTESIZE] OF BYTE;
  13.    NOOFRECSTOREAD,
  14.    REMAINING: INTEGER;
  15.  
  16. BEGIN
  17.    WRITE('Enter source file name: ');
  18.    READLN(SOURCENAME);
  19.    ASSIGN(SOURCE, SOURCENAME);
  20.    RESET(SOURCE);
  21.    WRITE('Enter destination file name: ');
  22.    READLN(DESTINATIONNAME);
  23.    ASSIGN(DESTINATION, DESTINATIONNAME);
  24.    REWRITE(DESTINATION);
  25.    REMAINING := FILESIZE(SOURCE);
  26.    IF REMAINING <> 0 THEN
  27.    BEGIN
  28.      REPEAT
  29.        IF BUFSIZE <= REMAINING THEN NOOFRECSTOREAD := BUFSIZE
  30.        ELSE NOOFRECSTOREAD := REMAINING;
  31.        BLOCKREAD(SOURCE, BUFFER, NOOFRECSTOREAD);
  32.        BLOCKWRITE(DESTINATION, BUFFER, NOOFRECSTOREAD);
  33.        REMAINING := REMAINING - NOOFRECSTOREAD;
  34.      UNTIL REMAINING = 0;
  35.      CLOSE(DESTINATION);
  36.      CLOSE(SOURCE);
  37.    END;
  38. END.