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 / kat2.p < prev    next >
Encoding:
Text File  |  1990-06-07  |  374 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.