Найти сумму новых чисел, чтобы поменялись крайние цифры двух исходных - QBasic

Формулировка задачи:

Два трехзначных числа,мне нужно найти сумму новых,чтобы поменялись крайние цифры. всё это решить нужно с подпрограммой,чтобы был GOSUB/

Решение задачи: «Найти сумму новых чисел, чтобы поменялись крайние цифры двух исходных»

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

FOR i = 1 TO 2
INPUT "vvedite 3-znachnoe chislo ", a
GOSUB obmen
s = s + a
NEXT
PRINT  s
END
obmen:
b = a MOD 10
c = a \ 100
d = a \ 10 MOD 10
a = b * 100 + d * 10 + c
RETURN

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

В цикле FOR просят ввести два трёхзначных числа.
В процедуре GOSUB выполняется обмен крайних разрядов числа a.
Выполняется сложение чисел a и s.
Число s увеличивается на значение a.
Выводится значение переменной s.
Процедура obmen выполняет обмен крайних разрядов числа a.
Вычисляется значение переменной b как остаток от деления a на 10.
Вычисляется значение переменной c как целая часть от деления a на 100.
Вычисляется значение переменной d как остаток от деления a на 10.
Вычисляется новое значение переменной a как произведение b на 100 плюс произведение d на 10 плюс c.
Процедура obmen завершается и управление возвращается в основную программу.
Значение переменной a изменено и равно исходному числу, но с обратным порядком крайних разрядов.