ValueArray: obj
Point: Value
%globals
in X: var Integer
in Y: var Integer
moveTo:
in P: var Point(,)
print:<
Segment:
points: obj Indexed(,#Point)
putP:
in inx: var integer
in P: var Point(,)
getPoint:
out Pa: var Point(,)
testSeg:
P1: var Point(,)
P2: val Point(,)
printSeg:
P: var Point(,)
Px: val Point(,)
S: obj Segment
T: ref Indexed