Return to hamachi.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/hamachi.p, revision 1.1.1.1

1.1       root        1: program test(input, output);
                      2: 
                      3: procedure x(procedure y(a:  integer));
                      4:    function b:  integer;
                      5:    begin
                      6:       y(2);
                      7:       b:=5;
                      8:    end;
                      9: 
                     10: begin
                     11:    y(1);
                     12:    writeln(output, 'Function b returns ', b);
                     13: end;
                     14: 
                     15: procedure z(a:  integer);
                     16: begin
                     17:    writeln(output, 'Answer is ', a:0);
                     18: end;
                     19: 
                     20: 
                     21: begin
                     22:    x(z);
                     23: end.

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