Return to form.p CVS log

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

BSD 4.3reno

program test(output);

	procedure foo0(procedure bar);
		begin
		bar
		end;

	procedure foo1(x :integer; procedure bar(i :integer));
		begin
		bar(x)
		end;

	procedure zero;
		begin
		writeln('I take no parameters');
		end;

	procedure one(z :integer);
		begin
		writeln('My argument is ',z:1);
		end;

	begin
	foo0(zero);
	foo1(12, one);
	writeln('success');
	end.

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