tinyB: obj
inxd:
l1: ref xInt
l2: obj xInt
xInt: xCvalue
%ID xInt
--%basic 1,32
%globals
%public
_thisBasicValue: var Universal
xValue:
%ID xValue
%globals
%public
:=:
%basic
in V: ref xValue
xCvalue: xValue
%ID "xcValue"
thisValue:< xCvalue
=:<
in V: ref thisValue
Vx: obj xint
out b: var boolean
dum: ref xint
Point: xcValue
x: obj xInt
print:
V1: ref xInt
V2: obj xInt
P1: obj point
P2: obj point