1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#SRC: JCON
record simple(f)
record rec(f1, f2)
procedure main()
local a, b
a := rec()
a.f1 := 1
a.f2 := 2
write(a.f1, " ", a.f2)
a := rec(3)
a.f2 := 4
write(a.f1, " ", a.f2)
a := rec(5,6)
write(a.f1, " ", a.f2)
a.f1 := 7
a.f2 := 8
write(a.f1, " ", a.f2)
a := rec(9,10,11)
write(a.f1, " ", a.f2)
a := rec(11, 12)
every write(!a)
every !a := 13
write(a.f2)
b := simple(14)
write(?b)
?b := 15
write(!b)
b := rec(3, 7)
every write(b[1 to 3])
every write(b["f" || (1 to 3)])
a := rec(1, 2)
b := rec(3, 4)
a.f1 +:= 10
a.f2 +:= 20
every !b +:= 70
every writes(" ", !a | !b | "\n")
end
|