Отсортировать слова по алфавиту по первой букве - QBasic

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

Господа программисты помогите пожалуйста решить задачку в qbasic : ))Условие : ввести 3 любых слова на русском языке программа их отсортировывает по алфавиту по первой букве . Заранее всем большое спасибо !!!

Решение задачи: «Отсортировать слова по алфавиту по первой букве»

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

DEF FNCRus% (X$)
n% = ASC(LEFT$(X$, 1))
  IF n% > 159 AND n% < 176 THEN
   n% = n% - 32
  ELSEIF n% > 223 AND n% < 240 THEN
   n% = n% - 96
  END IF
FNCRus% = n%
END DEF
  CLS
LINE INPUT "‘«®ў®1:"; A$
LINE INPUT "‘«®ў®2:"; B$
LINE INPUT "‘«®ў®3:"; C$
 IF FNCRus%(A$) > FNCRus%(B$) THEN SWAP A$, B$
 IF FNCRus%(B$) > FNCRus%(C$) THEN SWAP B$, C$
 IF FNCRus%(A$) > FNCRus%(B$) THEN SWAP A$, B$
PRINT A$
PRINT B$
PRINT C$

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

Задана функция FNCRus%, которая принимает один аргумент X$.
В первой строке функции n% присваивается значение первой буквы аргумента X$.
Далее, с помощью условного оператора IF, проверяется диапазон значений переменной n%. Если значение n% находится в диапазоне от 160 до 175, то к n% прибавляется -32. Если значение n% находится в диапазоне от 224 до 239, то к n% прибавляется -96.
В конце функции FNCRus% возвращается значение переменной n%.
В основной части программы происходит запрос на ввод трех строк с помощью функции LINE INPUT.
С помощью условного оператора IF и функции SWAP выполняется сортировка строк по алфавиту, используя функцию FNCRus% для сравнения.
В конце программы выводятся отсортированные строки с помощью функции PRINT.