Пример - Maps.Map
## Код:
```
Elem = RECORD (Maps.Elem)
   ri-: Keys.String32Key;
   i1: INTEGER;
END;
ElemPArr = POINTER TO ARRAY OF Elem;
MyMap = RECORD (Maps.Map)
   data*: POINTER TO ARRAY OF ElemPArr;
END;
```

Алгоритм осуществляет вставку в отсортированной красно-черное дерево и печатает алфавитном порядке.
## Код:
```
map.Init(Maps.defaults);
el.i1 := 11; el.ri.name := "eleven"; map.Insert(el);
el.i1 := 12; el.ri.name := "twelve"; map.Insert(el);
el.i1 := 13; el.ri.name := "thirteen"; map.Insert(el);
el.i1 := 14; el.ri.name := "fourteen"; map.Insert(el);
Log.String("Map rows"); Log.Bool(map.data # NIL); Log.Int(LEN(map.data)); Log.Int(map.size); 
Log.Int(map.capacity); 
Log.String(" cols"); Log.Bool(map.data[0] # NIL); Log.Int(LEN(map.data[0])); Log.Ln;
map.First(it);
WHILE it.r >= 0 DO
   Log.String("map["); Log.String(map.data[it.r][it.c].ri.name); Log.String("]=");
   Log.Int(map.data[it.r][it.c].i1); Log.Ln;
   map.Next(it);
END;
```

Тип Maps.Multimap делает то же, но с удалением повторных вхождений.