Return to goto.p CVS log

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

Annotation of 43BSD/ucb/pascal/pdx/test/goto.p, revision 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.