home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB11.ZIP / CLONE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-07-13  |  1.1 KB  |  29 lines
  1. PROGRAM CLONE;
  2.  
  3. {
  4. Utility program for creating an extra copy of any text file on either
  5. drive, while never leaving Turbo Pascal. Easier for beginners to use than PIP!
  6.  
  7. Source: "Four Lifesaving Utilities for CP/M", TUG Lines Volume I Issue 4
  8. Author: Kirby Pressly/2011 Willowbend/Wharton, TX 77448/
  9. Application: CP/M-80 (can also be used with PC-DOS, MS-DOS)
  10. }
  11.  
  12. VAR
  13.   OLDFILEVAR ,NEWFILEVAR:        TEXT;
  14.   OLDFILENAME,NEWFILENAME: STRING[14];
  15.   LINE:                    STRING[80];
  16.   BEGIN                  (* DRIVE: IS OPTIONAL IF DEFAULT DRIVE IS OK      *)
  17.     CLRSCR;
  18.     WRITE('ENTER  DRIVE:OLDFILENAME.EXTENT  >>=> '); READLN(OLDFILENAME) ;
  19.     WRITELN;
  20.     WRITE('ENTER  DRIVE:NEWFILENAME.EXTENT  >>=> '); READLN(NEWFILENAME) ;
  21.     ASSIGN(OLDFILEVAR,OLDFILENAME);    ASSIGN(NEWFILEVAR,NEWFILENAME);
  22.     RESET(OLDFILEVAR);
  23.     REWRITE(NEWFILEVAR);  (* ERASES ANY EXISTING FILE BY THAT NAME AND *)
  24.     WHILE NOT EOF(OLDFILEVAR) DO  (* SETS UP A NEW ONE                 *)
  25.       BEGIN
  26.          READLN(OLDFILEVAR,LINE);
  27.          WRITELN(NEWFILEVAR,LINE);
  28.       END;  CLOSE(NEWFILEVAR);
  29.   END.