blob: 7af1e38b20d7f9574e83956d8dcbac48c00785f0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#SRC: JCON
procedure main()
write(&level);
foo(3);
write(&level);
every bar(3)
write(&level);
end
procedure foo(n)
write(&level);
if n ~= 0 then foo(n-1)
write(&level);
end
procedure bar(n)
write(&level);
suspend 1 to n do write(&level)
write(&level);
end
|