Interface for qBeta module object
MiniVal: obj
doVal:
in ID: var char
in n: var integer
Point:and: Value
%globals
dum: var integer
printA:
print:
:==:
in P: var Point:and
Line: Value
%globals
P1: var Point:and
P2: var Point:and
print:
Record:
age: var integer
height: var integer
printRecord:
===:
in ch: var char
YYY: var integer -- 4
TestVal:
XXX: var integer
dummy: var integer -- 5
dummy2: var integer -- 6
dummy3: var integer -- 7
P1: val Point:and -- 8: P1.X, 9: P1.Y
P2: val Point:and --10: P2.X,11: P2.Y
R: obj Record --12:1: R.origin, 13:2: age 14:3: height
kuk:
Py: val Point:and
check:
q1: var integer
q2: var integer
q3: var integer
q4: var integer
q5: var integer
q6: var integer
q7: var integer
q8: var integer
Px: val Point:and -- 'l'
checkPtn:
ptn:
foo:
in ch: var char
bar:
XXX:
R: obj ptn
a: var integer
b: var integer
S: ref Record