Пожелания к разработчика.

[kondor3000]

паллиатив

function Extract: bool;
    var_input
        Value,
        nBit : udint;
    end_var
    Extract := (shr(Value,nBit) mod 2) > 0;
end_function

Спасибо, дописал программу) Но это не отменяет пожелания для разработчиков, поддержать побитное AND, OR для целочисленных

[Ollema]

А можно величину шрифта в редакторе менять? На большом мониторе текст как букашки...
И это, форматирование текста пробелами... блин, что за ахинея?