Return to kat.p CVS log

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

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

1.1       root        1: program kat(input, output);
                      2: var
                      3:     ch: char;
                      4: begin
                      5:     while not eof do begin
                      6:        while not eoln do begin
                      7:            read(ch);
                      8:            write(ch)
                      9:        end;
                     10:        readln;
                     11:        writeln
                     12:     end
                     13: end { kat }.

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