Примеры программ на языке QBASIC

REM Замена малых русских букв большими
DECLARE FUNCTION UP$ (A$)
PRINT "Введите строку, содержащую малые и большие буквы"
INPUT "", A$
B$ = UP$(A$)
PRINT B$
END

FUNCTION UP$ (A$)
'Чтобы не испортить аргумент A$, введена локальная переменная
DIM B AS STRING
B = A$
FOR J = 1 TO LEN(A$)
  SELECT CASE MID$(B, J, 1)
    CASE "a" TO "z": MID$(B, J, 1) = CHR$(ASC(MID$(B, J, 1)) - 32)
    CASE "а" TO "п": MID$(B, J, 1) = CHR$(ASC(MID$(B, J, 1)) - 32)
    CASE "р" TO "я": MID$(B, J, 1) = CHR$(ASC(MID$(B, J, 1)) - 80)
    CASE "ё": MID$(B, J, 1) = "Ё"
  END SELECT
NEXT J
UP$ = B
END FUNCTION