Interface for qBeta module object
MetaSystem: obj
%include StringLib
ObjSnap:
in ob: ref Object
snap: ref Indexed
print:
ix: var integer
getId:
ch: var char
printKind:
in K: var integer
off: var integer
size: var integer
kind: var integer
descNo: var integer
V: var integer
next:
out V: var integer
emit:
in V: var integer
indent: var integer
levels: obj
lev: obj indexed(,integer)
top: var integer
add:
in s: var integer
V: var integer
--"add:s: ".print
--putint(s)
--" top:".print
--putint(top)
--newline
down:
V: var integer
--"down:V:".print
loop:
--"ix: ".print
--putint(ix)
--newline
--newline