Т > KBDTrans (Т Universal keyboard character input 9Т Translates top-bit keypresses to uniform key values (: 2%escOn$="ESC ON":escOff$="ESC OFF" <(Н ┘ escOn$="FX229":escOff$="FX229,1" FЪ escOn$:Н ┘ ┤ P: Z Рkbd_Init d Ъ escOff$ nЯ"Press Esc+Esc to finish" xcol%=0:key%=0 ┌У ▄last%=key% √key%=єkbd_GET ═Я єh0(key%,3)'дcol%,Ґ9); ╙Ц A%=0 ╦ 3:Г A%=2:A%=3 Є)A$=═("FNc"+ц(A%)+"("+ц(key%─255)+")") ЎЯ A$;'дcol%,Ґ9); хМ A% рЯ д4,Ґ11);д5,Ґ9); э$col%=col%+5:Г ╠<5:ЯҐ8'''':col%=0 Ф*Щ (key%=27 ─ last%=27) └ (і-1 ─ і-113) П.Ъ "FX4":Ъ "FX225,1":Ъ escOn$:Г col%:Я '''' ЗЮ : Т Character conversions )щєc0(A%):Г A%>127:="|!"+єc0(A% ─ 127) "@Г A%<32 └ A%=127:="|"+Ґ(A% ┌ 64) ▀ =ю"|",A%=34 └ A%=124)+ҐA% ,7щєc1(A%):Г ((A%+1) ─ 127)<33:="^"+Ґ(A% ┌ 64) ▀ =ҐA% 6)щєc2(A%):Г A%<32 └ A%=127:="." ▀ =ҐA% @,щєc3(A%):Г ((A%+1) ─ 127)<33:="." ▀ =ҐA% J#щєh0(A%,N%)=б"0000000"+ц~A%,N%) T: ^: hщРkbd_Init r&A%=0:X%=1:os%=((╨&FFF4)─&FF00)│256 |(kbd%=(os%<8):Г(і-256─&DB)=&53:kbd%=1 ├Т kbd% f1 f10 cursor ░1Т -1 81 CA 8C+n RISC OS semi-regular $Т 0 81 8A CC+n Regular є/Т 1 91 9A 88+n RTR offset regular ў5Ц A%=0 ╦ 7:Ъ"FX"+ц(221+A%)+","+ц((A%┌4)*16+128):М ╦'Ъ "FX4,2":Ъ "FX219,9":Ъ "FX254,128" бА л: ж.Т General cross-platform regular key input Ю4щєkbd_GET:Й A%:У A%=єkbd_INKEY(100):Щ A%<>-1:=A% Йщєkbd_INKEY(T%):Й A%,S% Т(A%=іT%:S%=(і-1─16)+(і-2─32)+(і-3─48) Ч2Г A%=30:Г kbd%<0:Гі-63:=&C8+S% :Т RISC OS Home 1Г A%=127:Г kbd%<0:=&C7+S% :Т Delete 9Г A%<128 └ kbd%=0:=A% :Т No translation ;Г kbd%>0:A%=A%-16 :Т RTR topset keys &cГ kbd%>0:Г(A%─&F0)=&70:=═("&"+а"CD89BA67CDEFABAB",A%-&6F,1))+S%+&C0 :Т RTR editing keys 0gГ kbd%>0:Г(A%─&F0)=&80:ГA%>&8A:ГS%─48:=((A%+&5C)┌((A%>&8D)─1))+18*(A%=&8B) :Т RTR Ctrl-editing keys :Г kbd%>0:=A% D2Г (A%─&CF)=&CD:=A%-7 :Т Insert N9Г (A%─&8F)>&89:A%=A%┌&40 :Т f10-f12/cursors X/Г (A%─&CF)=&CB:=A%-2 :Т End bFГ (A%─&DE)=&CE:=A%+(і-1─12) :Т Down/Up or Shift-PgDn/Shift-PgUp lFГ (A%─&DE)=&DE:=A%-20+(і-1─20) :Т Shift-Down/Shift-Up or PgDn/PgUp v=A% ─: Ъ