Return to copydata.p CVS log

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

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

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

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