>>And just to add - you may move your UPPER case logic into this method as well instead of InteractiveChange, e.g.
>>
>>

>>IF between(m.nKeyCode, 97, 122) && a - z
>>   NODEFAULT
>>   nKeyCode= m.nKeyCode - 32 && a -> A
>>   DODEFAULT(m.nKeyCode, m.nShiftAltCtrl)
>>ENDIF
>>

>>
>
>
>Thank you, but I don't need it :o)))
>Also what will we do when we write on Cyrillic?

if between(nKeyCode, 64, 255) and isupper(chr(nKeyCode))

You only need to compile the code which does that in the codepage of your choice - presumably 1251. I tried with žšđčć and ŽŠĐČĆ, and it recognized each one of them properly - my cpcurr() is 1250.