Return to recur.mod CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / dbx / tests / mod

Annotation of 43BSD/ucb/dbx/tests/mod/recur.mod, revision 1.1

1.1     ! root        1: module main;
        !             2: 
        !             3: from io import Writef, output;
        !             4: 
        !             5: procedure r (n : integer);
        !             6: begin
        !             7:     Writef(output, "blah\n");
        !             8:     if n > 0 then
        !             9:        r(n - 1);
        !            10:        Writef(output, "blah2\n");
        !            11:     end;
        !            12: end r;
        !            13: 
        !            14: begin
        !            15:     r(5);
        !            16: end main.

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