UpperStr

Эта процедура корректно переводит строку Str, содержащую русские буквы в верхний регистр. Строка передается по ссылке, то есть прототип ее (*String).   Ничего не возвращает, но изменяет оригинал строки Str.

UpperStr PROCEDURE ( Str )  ! Перевод строки с русскими буквами в верхний регистр

CODE
  x# = len( Str )
  loop i#=1 to x#
     ch# = val( sub( Str, i#, 1 ) )
     if ch# >= val('а') and ch# <= val('я')
        Str[ i# ] = chr( ch#-32 )
     else
        Str[ i# ] = upper( chr(ch#) )
     . 
  .

LowerStr

Эта процедура корректно переводит строку Str, содержащую русские буквы в нижний регистр. Строка передается по ссылке, то есть прототип ее (*String).  Ничего не возвращает, но изменяет оригинал строки Str.

LowerStr PROCEDURE ( Str )  ! Перевод строки с русскими буквами в верхний регистр
CODE
  x# = len( Str )
  loop i#=1 to x#
     ch# = val( sub( Str, i#, 1 ) )
     if ch# >= val('А') and ch# <= val('Я')
        Str[ i# ] = chr( ch#+32 )
     else
        Str[ i# ] = lower( chr(ch#) )
     .
  .