|
|
1.1 ! root 1: module main; ! 2: ! 3: from io import Writef, output; ! 4: ! 5: var global : integer; ! 6: ! 7: procedure p (i : integer; s : array of char; j : integer); ! 8: begin ! 9: Writef(output, "in p(%d, %s, %d)\n", i, s, j); ! 10: global := 10; ! 11: end p; ! 12: ! 13: begin ! 14: global := 3; ! 15: p(3, "blah", 4); ! 16: end main.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.