Return to goto.p CVS log

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

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

1.1       root        1: 
                      2: program gototest(input, output);
                      3: label 1;
                      4: 
                      5: procedure A;
                      6: begin
                      7:        writeln('A');
                      8:        goto 1;
                      9: end;
                     10: 
                     11: procedure B;
                     12: begin
                     13:        writeln('B');
                     14:        A;
                     15: end;
                     16: 
                     17: begin
                     18:        B;
                     19: 1:
                     20:        writeln('exiting');
                     21: end.

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