20 lines
450 B
Text
20 lines
450 B
Text
Module CheckIt {
|
||
Group Alfa {
|
||
Private:
|
||
X=10, Y=20
|
||
Public:
|
||
Module SetXY (.X, .Y) {}
|
||
Module Print {
|
||
Print .X, .Y
|
||
}
|
||
}
|
||
Alfa.Print ' 10 20
|
||
\\ we have to KnΟw position in group
|
||
\\ so we make references from two first
|
||
Read From Alfa, K, M
|
||
Print K=10, M=20
|
||
K+=10
|
||
M+=1000
|
||
Alfa.Print ' 20 1020
|
||
}
|
||
CheckIt
|