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

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.