// эта процедура срабатывает по инициативе пользователя,
// который запускает какую-то обработку,
// например, нажимает красную кнопку на приборе
void GUI_Event_StartProcess()
{
    // сначала определяется какая конкретная процедура должна вызываться
    // при возникновении события в бизнес-процедуре
    // в зависимости от условий и параметров
    
    if (...)
        // при этих уловиях должна срабатывать GUI_Update_1:
        // оповещения в консоль
    elseif (...)
        // при этих уловиях должна срабатывать GUI_Update_2:
        // оповещения в виде сигнальных лампочек

    // вызываем бизнес-процедуру
    BL_DoProcess();
}

void GUI_Update_1()
{
    // первый способ отображения изменений модели,
    // например вывод в консоль
    Text = ....
}

void GUI_Update_2()
{
    // второй способ отображения изменений модели,
    // например включаем соответсвующие сигнальные лампочки
    switch_on(lamp1);
}

void BL_DoProcess()
{
    while(...)
    {
        ...
        // обработка данных
        ...
        BL_notifyUpdater();
    }
}

void BL_notifyUpdater()
{
    // что здесь должно быть, чтобы вызывалась
    // конкретная процедура GUI_Updater_xxx?
}

_>struct State { int a,b; };
_>int fn1(State* state) { 
_>  return state->a + state->b; 
_>}
_>int global=123;
_>int fn2() {
_>  State s[2];
_>  s[0].a=10;
_>  s[0].b=20;
_>  s[1].a=30;
_>  s[1].b=40;
_>  return fn1(&s[0]) + fn1(&s[1]) + global;
_>}
_>int fn3(int s) {
_>  switch(s) {
_>    case 0: { return 10; } break;
_>    case 1: { return 20; } break;
_>    case 7: { return 15; } break;
_>    default: return 0;
_>  }
_>}
_>int fn4(int n) {
_>  int r=0;
_>  for(int i=0;i<n;i++) {
_>    if (i%3>1) r++; else r--;
_>  }
_>  return r;
_>}
_>int fn4( int (*fn)(int) ) {
_>  return fn(7);
_>}
_>int fn5() {
_>  return fn4(fn3);
_>}
_>

vsb>function call_by_pointer(pointer: integer, argument: integer): integer {
vsb>  if (pointer == 1) return function_1(argument);
vsb>  if (pointer == 2) return function_2(argument);
vsb>  if (pointer == 3) return function_3(argument);
vsb>  throw error;
vsb>}
vsb>

vsb>function call_by_name(name: string, argument: integer): integer {
vsb>  if (name == "function_1") return function_1(argument);
vsb>  if (name == "function_2") return function_2(argument);
vsb>  if (name == "function_3") return function_3(argument);
vsb>  throw error;
vsb>}
vsb>}
vsb>