Return to binrdwt.p CVS log

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

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

1.1     ! root        1: program binrdwt(input, output);
        !             2: 
        !             3: const
        !             4: LAST=1;
        !             5: 
        !             6: type
        !             7: this=array[1..1024] of char;
        !             8: 
        !             9: var
        !            10: binfil :file of this;
        !            11: i :integer;
        !            12: x :this;
        !            13: 
        !            14: begin
        !            15: rewrite(binfil);
        !            16: for i := 1 to LAST do
        !            17:        write(binfil, x);
        !            18: reset(binfil);
        !            19: for i := 1 to LAST do
        !            20:        read(binfil, x);
        !            21: end.

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