bKinds: obj
%include MetaSystem
v: var integer -- 2
u: var integer -- 3
meter: integer
weight: integer
unit: var char
add:
in M: var integer
print:
m1: var meter -- 4
w1: var weight -- 6
-- m1 := w1 -- error and is OK
speed: integer
Q: var integer
speedUp:
in V: var integer
S: val speed -- 8
m2: var meter
SN: ref ObjSnap