09-09-2025, 10:28 AM
Thanks for replies
@All
I got the issue on the combo keys or using Shift to change from Uppercase to lowercase and vice versa!
@SMcNeill
Amazing Steve!
You fire the centre of issue.
Yeah I have made a mistake!
I missed your suggestion about ASC because the row of code starts with IF LEN (a$)>1... BuuuuuuuuuT
in the ELSE case it goes also a$="" when a keystroke with Alt/Ctrl or Shift gives the event with no value returned by INKEY$!
so the solution is another IF in the ELSE case
Steve your code is clear and selfexplaining!
@All
I got the issue on the combo keys or using Shift to change from Uppercase to lowercase and vice versa!
@SMcNeill
Amazing Steve!
You fire the centre of issue.
Yeah I have made a mistake!
I missed your suggestion about ASC because the row of code starts with IF LEN (a$)>1... BuuuuuuuuuT
in the ELSE case it goes also a$="" when a keystroke with Alt/Ctrl or Shift gives the event with no value returned by INKEY$!
so the solution is another IF in the ELSE case
Code: (Select All)
Screen 0
_ControlChr Off
Do
Print " Press key for seeing the code turned back by INKEY$, Enter key will quit"
Sleep
a$ = InKey$
Print a$;
If Len(a$) > 1 Then
Print " = CHR$(0) + CHR$(" + Str$(Asc(a$, 2)) + ")"
Else
If Len(a$) > 0 Then Print " = " + Str$(Asc(a$))
End If
Loop Until a$ = Chr$(13)
Steve your code is clear and selfexplaining!

