Return to binrdwt.p CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/binrdwt.p, revision 1.1.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.