home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / textutil.lbr / COPYTEXT.PZS / COPYTEXT.PAS
Encoding:
Pascal/Delphi Source File  |  1993-10-25  |  896 b   |  46 lines
  1. PROGRAM COPYTEXT;
  2. CONST
  3.   TITLE='COPY TEXT';
  4. TYPE
  5.   STRING132=STRING(.132.);
  6. VAR
  7.   INFILE,OUTFILE:TEXT;
  8.  
  9. PROCEDURE OPENFILES;
  10. VAR
  11.   FILENAME:STRING(.14.);
  12. BEGIN
  13.   WRITE('INPUT FILE? ');READLN(FILENAME);
  14.   ASSIGN(INFILE,FILENAME);
  15.   RESET(INFILE);
  16.   WRITE('OUTPUT FILE? '); READLN(FILENAME);
  17.   ASSIGN(OUTFILE,FILENAME);
  18.   REWRITE(OUTFILE);
  19. END;  (* OPENFILES *)
  20.  
  21. PROCEDURE PROCESSSTRING( VAR S:STRING132);
  22. BEGIN
  23. END;  (* PROCESSSTRINGG *)
  24.  
  25. PROCEDURE PROCESSFILES;
  26. VAR
  27.   S:STRING132;
  28.  BEGIN
  29.    WHILE NOT EOF(INFILE) DO
  30.    BEGIN
  31.      READLN(INFILE,S);
  32.      PROCESSSTRING(S);
  33.      WRITELN(OUTFILE,S);
  34.    END;  (* WHILE *)
  35.  END; (* PROCESSFILES *)
  36.  
  37.  BEGIN
  38.    CLRSCR;
  39.    WRITELN(TITLE);
  40.    WRITELN;
  41.    OPENFILES;
  42.    PROCESSFILES;
  43.    CLOSE(OUTFILE);
  44.    CLOSE(INFILE);
  45.  END.
  46.