Return to binrdwt.p CVS log

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

BSD 4.3reno

program binrdwt(input, output);

const
LAST=1;

type
this=array[1..1024] of char;

var
binfil :file of this;
i :integer;
x :this;

begin
rewrite(binfil);
for i := 1 to LAST do
	write(binfil, x);
reset(binfil);
for i := 1 to LAST do
	read(binfil, x);
end.

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