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