BasicValueSub: obj
%include MetaSystem
meter: integer
m1: var meter -- off: 2
m2: var meter -- off: 3
weight: integer
unit: var char
add:
in M: var integer
print:
w1: var weight -- off: 4
speed: integer
Q: var integer
speedUp:
in V: var integer
S: val speed -- off: 6
SN: ref ObjSnap