В репозитории опубликовано два примера: https://github.com/kekcleader/FreeOberon/blob/master/Programs/Mandelbrot.Mod и https://github.com/kekcleader/FreeOberon/blob/master/Programs/Mandelbrot2.Mod. Ниже представлен исходный код первого из них. Программа рисует множество Мандельброта с полутонами.
Назначение процедуры Go — нарисовать одну точку (одного из 256 оттенков красного). Точка (sx, sy) задаёт место на экране (в пикселях), а точка (x, y) соответсвует точке (sx, sy), но уже на расчётной плоскости (не в пикселях). Координата y меняется на промежутке [-1; 1]. Координата x меняется так, чтобы центр координат был правее середины экрана (2 к 1). Цвет задаётся функциональной процедурой G.MakeCol в конце процедуры Go.
Для того, чтобы расчитать цвет, используется цикл REPEAT. В этом цикле происходит следующий расчёт:
z0 = 0
zn+1 = zn2 + c
Где c — комплексное число (x, y).
В цикле число z представлено как (re, im), где re — действительная часть числа z, а im — величина мнимой части числа z.