Вот. Это (безотносительно числа if-ов и т. п.) уже более грамотный подход.
#17: Author: sa, Posted: Wed May 22, 2019 15:04 На любителя - однокнопочный вариант без полной перерисовки окна тотала.
Взамен redraw используется непосредственно команда cm_GoToDir (2003). Следует записать run_item(locktc,0) tcm(2003)" вместо tcm(2003) run_item(locktc,0) redraw" в конце командной строки.