Return to t16.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/t16.p, revision 1.1

1.1     ! root        1: program Main(input, output);
        !             2: procedure copy(var inp, out: text);
        !             3:        var
        !             4:                c: char;
        !             5:        begin
        !             6:                while not eof(inp) do
        !             7:                begin
        !             8:                        while not eoln(inp) do
        !             9:                        begin
        !            10:                                c := inp^;
        !            11:                                out^ := c;
        !            12:                                put(out);
        !            13:                                get(inp);
        !            14:                        end;
        !            15:                        writeln;
        !            16:                        get(inp);
        !            17:                end;
        !            18:        end;
        !            19: begin
        !            20:        copy(input, output);
        !            21: end.

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