Return to kat2.p CVS log

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

Annotation of 43BSDReno/share/doc/ps1/04.pascal/kat2.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.