Return to goto.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / pdx / test

BSD 4.3reno

program gototest(input, output);
label 1;

procedure A;
begin
	writeln('A');
	goto 1;
end;

procedure B;
begin
	writeln('B');
	A;
end;

begin
	B;
1:
	writeln('exiting');
end.

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