Return to nonlocgoto.p CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/nonlocgoto.p, revision 1.1

1.1     ! root        1: program test(output);
        !             2: label  1;
        !             3: 
        !             4: procedure lvl1;
        !             5: 
        !             6: var
        !             7: f :file of char;
        !             8: 
        !             9: procedure lvl2;
        !            10: 
        !            11: begin
        !            12: writeln('lvl2 called');
        !            13: goto 1;
        !            14: halt;
        !            15: end;
        !            16: 
        !            17: begin
        !            18: rewrite(f,'file');
        !            19: writeln(f,'lvl1 called');
        !            20: lvl2;
        !            21: halt;
        !            22: end;
        !            23: 
        !            24: begin
        !            25: writeln('lvl0 called');
        !            26: lvl1;
        !            27: halt;
        !            28: 1:writeln('it worked');
        !            29: end.

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