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     ! 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.