|
|
1.1 ! root 1: module main; ! 2: var ! 3: i : integer; ! 4: ! 5: procedure p2 (i : integer); ! 6: begin ! 7: if i < 5 then ! 8: p2(i+1); ! 9: end; ! 10: end p2; ! 11: ! 12: procedure p1 (i : integer); ! 13: begin ! 14: p2(i+1); ! 15: end p1; ! 16: ! 17: begin ! 18: i := 0; ! 19: p1(i+1); ! 20: end main.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.