Ввести имя файла с расширением и заменить его на расширение ".exe" - QBasic

Ввести имя файла( с расширением )и Заменить его на расширение ".exe" Помогите кто чем может)

Листинг программы

INPUT "enter file name: ", a$
c$ = "ren " + a$ + " " + LEFT$(a$, INSTR(a$, ".")) + "exe"
SHELL c$

Объяснение кода листинга программы

Вводится имя файла с расширением.
Создается переменная c$, в которую записывается команда для программы SHELL (в данном случае, для операционной системы Windows).
В переменную c$ добавляются строки: ren (переименовать), пробел (для отделения имени файла), ` (пробел для отделения имени файла от расширения), LEFT$(a$, INSTR(a$,.)) (наибольший номер байта в имени файла, включая нулевой символ, который соответствует первому символу после имени файла, отделенного от расширения пробелом),exe` (расширение файла).
Выполняется команда из переменной c$.