PROCEDURE CacheString (x, y: INTEGER; c: INTEGER; IN s: ARRAY OF CHAR; f: Fonts.Font);
      VAR i, j, len: INTEGER;
      BEGIN
         len := LEN(s$);
         IF FALSE THEN (* old code, unused *)
            IF (cache.len + len >= cacheLen) OR (cache.y # y) OR
               (cache.color # c) OR (cache.font # f)
            THEN
               FlushCaches
            END;
            ASSERT(cache.len + len < cacheLen, 100);
            IF cache.len = 0 THEN
               cache.x := x; cache.y := y;
               cache.color := c; cache.font := f
            END;
            i := 0; j := cache.len;
            WHILE i < len DO cache.buf[j] := s[i]; INC(i); INC(j) END;
            cache.len := j
         ELSE
            FlushCaches;
            ASSERT(cache.len = 0);
            cache.x := x; cache.y := y;
            cache.color := c; cache.font := f;
            cache.buf := s$; cache.len := len
         END
      END CacheString;