home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / elan.sit / files / COPY.E next >
Text File  |  1988-11-09  |  395b  |  27 lines
  1.  
  2. copy:
  3.   ask name of old file;
  4.   ask name of new file;
  5.   copy from old to new.
  6.  
  7.   ask name of old file:
  8.     TEXT VAR x;
  9.     put ("Old file :");
  10.     get (x);
  11.     old file (x).
  12.   
  13.   ask name of new file:
  14.     put ("New file :");
  15.     get (x);
  16.     new file (x).
  17.   
  18.   copy from old to new:
  19.     REP
  20.       read (x);
  21.       write (x);
  22.       write line
  23.     UNTIL file ended
  24.     ENDREP;
  25.     close file.
  26.   
  27.