Return to hamachi.p CVS log

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

BSD 4.3reno

program test(input, output);

procedure x(procedure y(a:  integer));
   function b:  integer;
   begin
      y(2);
      b:=5;
   end;

begin
   y(1);
   writeln(output, 'Function b returns ', b);
end;

procedure z(a:  integer);
begin
   writeln(output, 'Answer is ', a:0);
end;


begin
   x(z);
end.

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