http://oberonrevival.sourceforge.net/docs/xds/html/isom202.html#6иhttp://oberonrevival.sourceforge.net/docs/xds/html/isom205.html#438
Этот кусок получился на Модуле.
XDS поддерживает смешение языков внутри одного модуля.
Я старался следить за тем, чтобы везде было "#", но, видимо, проглядел

Должно быть IF n # 0 THEN …