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     ! 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.