Return to kat3.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / share / doc / ps1 / 04.pascal

Annotation of 43BSDReno/share/doc/ps1/04.pascal/kat3.p, revision 1.1.1.1

1.1       root        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 }.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.