Это хорошо, потому-что компилятор Активного Оберона чего-то там мудрит, и IF ELSIF в данном случае работает быстрее.
А если ветки  упорядочить в соответствии с Add = 0; Set = 1; Get = 2; Jmp = 3; Jgt = 4; End = 5;
То тоже быстрее.
Но это всё хоть и печально, но на фоне того, что на выполнение MyTest.Do  у меня тратится 13 секунд ...