<> <> <> <> TJaMStorage: DEFINITIONS = { Zone: PROC RETURNS[UNCOUNTED ZONE]; Prune: PROC; <> TextObject: TYPE = PRIVATE RECORD[text,cache: LONG STRING, len,max,lim: CARDINAL]; TextNew: PROC[s: LONG STRING, lim: CARDINAL _ LAST[NAT]] RETURNS[TextObject] = INLINE { RETURN[[text: s, cache: s, len: 0, max: s.maxlength, lim: lim]] }; TextPut: PROC[t: POINTER TO TextObject, c: CHARACTER] = INLINE { i: CARDINAL = t.len; IF i