Return to block.p CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / pascal / pdx / test

Annotation of 42BSD/ucb/pascal/pdx/test/block.p, revision 1.1.1.1

1.1       root        1: program blocktest(input, output);
                      2: procedure A;
                      3:        procedure B;
                      4:        begin
                      5:                writeln('in procedure B');
                      6:        end;
                      7: begin
                      8:        writeln('in procedure A');
                      9:        B;
                     10: end;
                     11: 
                     12: begin
                     13:        writeln('in main program');
                     14:        A;
                     15: end.

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