Return to form.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/form.p, revision 1.1.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.