Return to form.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/form.p, revision 1.1

1.1     ! root        1: program test(output);
        !             2: 
        !             3:        procedure foo0(procedure bar);
        !             4:                begin
        !             5:                bar
        !             6:                end;
        !             7: 
        !             8:        procedure foo1(x :integer; procedure bar(i :integer));
        !             9:                begin
        !            10:                bar(x)
        !            11:                end;
        !            12: 
        !            13:        procedure zero;
        !            14:                begin
        !            15:                writeln('I take no parameters');
        !            16:                end;
        !            17: 
        !            18:        procedure one(z :integer);
        !            19:                begin
        !            20:                writeln('My argument is ',z:1);
        !            21:                end;
        !            22: 
        !            23:        begin
        !            24:        foo0(zero);
        !            25:        foo1(12, one);
        !            26:        writeln('success');
        !            27:        end.

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