while (true)
{
    RM = mem[RA]; // выбрать слово
    RA = (RA + 1) % N; // изменение адреса - по модулю 1024
    RC = RM.cmd.first; // выбрать команду first
    run(); // выполнить команду
    if (Jump) continue; // если переход, то не выполнять вторую команду [/b]
    if (Error || stop) break; // если команда stop или ошибка
    RC = RM.cmd.second; // выбрать команду second
    run(); // выполнить команду
    if (Error || stop) break; // если команда stop или ошибка
}

PROCEDURE GetCommand (): BYTE;
BEGIN
    IF first THEN
        RM := mem[RA];
        RA := (RA + 1) MOD N;
        RC := RM MOD 256;
    ELSE
        RC := RM DIV 256;
    END;
    first := ~first;
END;