Return to rdwt.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/rdwt.p, revision 1.1

1.1     ! root        1: program test(input, output, testfile);
        !             2: var
        !             3:    testfile:  text;
        !             4:    i, j, repetitions:  integer;
        !             5: begin
        !             6:    rewrite(testfile);
        !             7:    write(output, 'Number: ');
        !             8:    readln(repetitions);
        !             9:    for i:=1 to repetitions do
        !            10:       writeln(testfile, i);
        !            11:    reset(testfile);
        !            12:    for i:=1 to repetitions do begin
        !            13:       read(testfile, j);
        !            14:       if j <> i then
        !            15:         writeln('read/write error');
        !            16:       end;
        !            17:    readln(testfile);
        !            18:    if not eof(testfile) then
        !            19:       writeln('eof not reached');
        !            20:    remove('testfile');
        !            21: end.

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