OrderedList: obj
%visible QBETA,StringLib
OrderedList: Container
has::<
isEmpty:
out B: var Boolean
card:
out N: var integer
clear:
insert::
scan::
nxt: ref Link:next
link:next:
head: ref link:next
tail: ref Link:next
test:
L: obj OrderedList
Record:
print:
R: obj Record