Преобразовать в строке все строчные буквы в прописные - QBasic

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

String 17: Дана строка.Преобразовать в ней все строчные буквы(как латинские,так и русские)в прописные String 47: Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, разделенные одним символом «.» (точка). В конце строки точку не ставить.

Решение задачи: «Преобразовать в строке все строчные буквы в прописные»

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

CLS
DIM stroka$
LINE INPUT "Vvedi stroku:", stroka$
PRINT
PRINT UCASE$(stroka$)

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

В данном коде на языке QBasic выполняется преобразование всех строчных букв в прописные в строке, введенной пользователем.

Объявляется переменная stroka$ для хранения строки, введенной пользователем.
С помощью функции LINE INPUT пользователю предлагается ввести строку.
Введенная строка сохраняется в переменной stroka$.
С помощью функции PRINT выводится введенная строка.
С помощью функции UCASE$ преобразуются все строчные буквы в прописные в строке, хранящейся в переменной stroka$.
Результат преобразования выводится с помощью функции PRINT.