home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / share / doc / ps1 / 04.pascal / kat3.p < prev    next >
Encoding:
Text File  |  1990-06-07  |  479 b   |  24 lines
  1. program kat(input, output);
  2. var
  3.     ch: char;
  4.     i: integer;
  5.     name: packed array [1..100] of char;
  6. begin
  7.     i := 1;
  8.     repeat
  9.         if i < argc then begin
  10.             argv(i, name);
  11.             reset(input, name);
  12.             i := i + 1
  13.         end;
  14.         while not eof do begin
  15.             while not eoln do begin
  16.                 read(ch);
  17.                 write(ch)
  18.             end;
  19.             readln;
  20.             writeln
  21.         end
  22.     until i >= argc
  23. end { kat }.
  24.