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


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

SUB UP (A$)
FOR j = 1 TO LEN(A$)
  SELECT CASE MID$(A$, j, 1)
    CASE "a" TO "z": MID$(A$, j, 1) = CHR$(ASC(MID$(A$, j, 1)) - 32)
    CASE "а" TO "п": MID$(A$, j, 1) = CHR$(ASC(MID$(A$, j, 1)) - 32)
    CASE "р" TO "я": MID$(A$, j, 1) = CHR$(ASC(MID$(A$, j, 1)) - 80)
    CASE "ё": MID$(A$, j, 1) = "Ё"
  END SELECT
NEXT j
END SUB