18 lines
219 B
Plaintext
18 lines
219 B
Plaintext
|
struct -point
|
||
|
|
|
||
|
|
init &x -int
|
||
|
|
init &y -int
|
||
|
|
|
||
|
|
endstruct
|
||
|
|
|
||
|
|
init &mypoint -point
|
||
|
|
|
||
|
|
setfield &mypoint &x 53
|
||
|
|
setfield &mypoint &y 32
|
||
|
|
|
||
|
|
getfield $mypoint &x &value
|
||
|
|
println $value
|
||
|
|
|
||
|
|
getfield $mypoint &y &value
|
||
|
|
println $value
|