попытался сделать что-то вроде свободной библиотеки:
http://oberon.powerland.ru/?q=node/4