Т > KBDTest 1.10 6Т Display keypress codes and expected keyboard key : (WA%=0:X%=1:os%=((╨&FFF4)─&FF00)│256:A%=254:X%=0:Y%=255:K%=(((╨&FFF4)─&FF00)│256)└128 2JescOn$="ESC ON":escOff$="ESC OFF":Н ┘ escOn$="FX229":escOff$="FX229,1" ╪:escOn$="":escOff$="":О11,11:Я┴60;Ґ13; FPЪescOff$:Ц A%=0 ╦ 7:Ъ"FX"+ц(221+A%)+","+ц((A%┌4)*16+128):М:Ъ"FX219,9":*FX4,2 P/key%=0:kbd%=(os%<8):Г(і-256─&DB)=&53:kbd%=1 Z4Я"Keypress input/character output test"'д36,"-") d/Я"Program running on ";єs(єhost(os%));". "; nУ xIГ key%=0 └ kbd%=0:Яа"NativeForced",(K% ─ 64)│10+1,6);" keycodes are:" ┌7Г key%=0 └ kbd%=0:Рkbdinfo(kbd%):Я"Esc+Esc to end"' ▄У √last%=key%:key%=╔ ═RЯ єh0(key%,2);" ";єc3(key%);" ";єc1(key%);┼10);єc0(key%);┼15);єkeyname(key%) ╙key%=key% ─ 255 Є Щ key%=27 ЎK%=K% ┌ 64:Ъ"FX254,"+цK% хЩ key%=27 ─ last%=27 р)ЪescOn$:Ъ"FX225,1":Ъ"FX254,"+цK%:*FX4 эЮ Ф: П$щєkeyname(A%):Й A$,K%:K%=A% ─ 15 ЗГ A%=8:="Ctrl-H BACKSPACE" Г A%=9:="Ctrl-I TAB" Г A%=13:="Ctrl-M RETURN" Г A%=27:="Ctrl-[ ESCAPE" "Г A%<31:="Ctrl-"+Ґ(A%+64) ,Г A%=32:="SPACE" 6Г A%<127:="" @Г A%=127:="DELETE" J"Г kbd%>0:Г A%=&80:="Ctrl-Left" T#Г kbd%>0:Г A%=&81:="Ctrl-Right" ^\Г kbd%>0:Г (A% ─ &F0)=&80:=а"HomeEnd PgUpPgDnIns Del LeftRghtDownUp MsDnMsUp",K%*4-7,4) hГ kbd%>0:A%=A%-16 rГ A% ─ 16:A$="Shift-" |Г A% ─ 32:A$=A$+"Ctrl-" ├%Г kbd%=0:Г (A% ─ 48)=48:A$="Alt-" ░,Г kbd%=0:Г (A% ─ &CF)=&80:=A$+"Print/f0" AГ kbd%>=0:Г (A% ─ &CE)=&8E:=а"ScrllBreak",K%*5-69,5)+"/f"+цK% є"Г kbd%>=0:Г A%<192:=A$+"f"+цK% ў^Г kbd%=0:A$=A$+а"WindMenuWideKanjRomjTAB Ins Del HomeEnd PgDnPgUpLeftRghtDownUp",K%*4+1,4) ╦@Г kbd%=0:=A$+юҐ8,K%=5)+ю"/f"+ц(K%+16),K%<5)+ю"/NoConv",K%=5) б Г A%<192:Г K%<10:=A$+"f"+цK% л:Г A%<192:=A$+а"BreakCopy Left RightDown Up",K%*5-49,5) ж2Г K%>9:=а"f10 f11 f12 Ins MsDnMsUp",K%*4-39,4) Ю!Г K%<2:=а"WindMenu",K%*4+1,4) Й=A$+"Japan"+цK% Т: ЧщРkbdinfo(A%) ^Г A%>0:Г (і-256─&DB)=&53:Я"&8x: c<-,c->,Home,End,PgUp,PgDn,Ins,Del,<-,->,Dn, Up,MsDn,MsUp" gГ A%>0:Г (і-256─&DB)=&53:Я"&9x: F0, F1, F2, F3, F4, F5, F6, F7, F8,F9,F10,F11,F12,F13,F14,F15":А NГ A%=0:Я"&8x: F0,F1,F2,F3,F4,F5,F6, F7, F8, F9, F10, F11, F12,F13,F14,F15" &CГ A%=0:Я"&Cx:"┴18"Ins,Del,Home,End,PgDn,PgUp, <-, ->, Dn, Up":А 0JГ A%<0:Я"&8x: F0,F1,F2,F3,F4,F5,F6,F7,F8,F9,Break,Copy,<-,->, Dn , Up" :<Г A%<0:Я"&9x:"┴48"PgDn,PgUp"'"&Cx:"┴32"F10, F11,F12,Ins" DА N: Xщєhost(A%) bvГ A%>27:Г A%<33:=а"Commodore 64/128TI Calculator Amstrad CPC ZX Spectrum DOS/Windows ",A%*16-447,16) lqГ A%<11:=а"ElectronBBC B BBC B+ Master MasterETCompact RISC OS SpringbdUnix 6809UnixApple ",A%*8+1,8) vYГ A%=17:="6809Beeb" ▀ Г A%=24:="CP/M" ▀ Г A%=43:="RT11/RSX/RSTS" ▀ Г A%=57:="6809DOS" ─="unknown" ┼: ■Т Character conversions ·#щєh0(A%,N%)=б"0000000"+ц~A%,N%) ╗/щєs(A$):ГюA$,1)=" ":УA$=аA$,2):ЩюA$,1)<>" " ╡+ГбA$,1)=" ":УA$=юA$,╘A$-1):ЩбA$,1)<>" " ╪=A$ ф)щє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% Д1щєc2(A%):Г (A% ─ 127)<32 └ A%=127:="." ▀ =ҐA% Н,щєc3(A%):Г ((A%+1) ─ 127)<33:="." ▀ =ҐA% Ъ