|
|
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.