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

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.