Преобразование регистра символа
Поскольку в QPILE нет функции, преобразующей символ в верхний/нижний регистры, пришлось написать их. Все незамысловато на самом деле.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Возвращает переданный символ CHR в верхнем регистре
FUNC Chr_Upper(sp_chr)
result = find("qwertyuiopasdfghjklzxcvbnmйцукенгшщзхъфывапроджэячсмитьбюё",0,sp_chr)
if result == -1
result = sp_chr
else
result = substr("QWERTYUIOPASDFGHJKLZXCVBNMЙЦУКЕНГШЩЗХЪФЫВАПРОДЖЭЯЧСМИТЬБЮЁ",result,1)
end if
END FUNC
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Возвращает переданный символ CHR в нижнем регистре
FUNC Chr_Lower(sp_chr)
result = find("QWERTYUIOPASDFGHJKLZXCVBNMЙЦУКЕНГШЩЗХЪФЫВАПРОДЖЭЯЧСМИТЬБЮЁ",0,sp_chr)
if result == -1
result = sp_chr
else
result = substr("qwertyuiopasdfghjklzxcvbnmйцукенгшщзхъфывапроджэячсмитьбюё",result,1)
end if
END FUNC