 
 Т > BLib.Develop.DeepKeyDemo :*fx229,1 К 40:Рdemo:Ю (: 2: <(Т FNdeep_inkey(time%) and FNdeep_get F(Т ---------------------------------- P?Т Returns -1 if no key pressed within time% in centiseconds Z@Т  or b0-b8  : character code (b8=1 if function/editing key) dТ     b9     : reserved nТ     b10    : RightAlt xТ     b11    : RightCtrl ┌Т     b12    : RightShift ▄Т     b13    : LeftAlt √Т     b14    : LeftCtrl ═Т     b15    : LeftShift ╙Т     b16    : Alt pending ЄТ     b17    : Scroll Lock ЎТ     b18    : NumLock хТ     b19    : Shift рТ     b20    : Caps Lock эТ     b21    : reserved ФТ     b22    : Ctrl ПТ     b23    : Shift Lock З'Т     b24-b31: physical key pressed:щєdeep_inkey(time%)  Й char%,mod%,key%,shift%""  char%=і(time%):Гchar%=-1:=-1,K  Г char%=0:char%=╔:Г char%:char%=(char% └ &100) ┌ ((char%─15)>9 ─ &40)6  shift%=0@  Ц key%=4 ╦ 9J'    shift%=(shift%<<1)└(і-key% ─ 1)T  М^#  х≥ "OS_Byte",&CA,,&FF ╦ ,mod%h  х≥ "OS_Byte",&7A ╦ ,key%r9=char% └ (shift%<<10) └ ((mod%┌&14)<<16) └ (key%<<24)|:├щєdeep_get░
  Й A%   Ує    A%=єdeep_inkey(10)ў  Щ A%<>-1╦=A%б:л:ж:Ю
щРdemoЙ-Ц A%=221 ╦ 228:х≥ "OS_Byte",A%,2:М:*FX4,2Т4Я "physicalmodifier.......character  char key ";Ч/Я "ShLk Ctrl Caps Shift NumLk Scroll Alt ";%Я "LeftSg LeftCt RightSh RightCt"У  A%=єdeep_inkey(100)&  :0  Я єb0(A%,32);:.  Я " ";єh0(A% ─ &1FF,3);" ";єc(A% ─ &FF);D  Я " ";єh0((A%>>24),2);N  :X&  Я " ";єonf(A% ─ (1<<23),"ShLk");b&  Я " ";єonf(A% ─ (1<<22),"Ctrl");l&  Я " ";єonf(A% ─ (1<<20),"Caps");v'  Я " ";єonf(A% ─ (1<<19),"Shift");─'  Я " ";єonf(A% ─ (1<<18),"NumLk");┼(  Я " ";єonf(A% ─ (1<<17),"Scroll");■%  Я " ";єonf(A% ─ (1<<16),"Alt");·  :╗(  Я " ";єonf(A% ─ (1<<15),"LeftSh");╡(  Я " ";єonf(A% ─ (1<<14),"LeftCt");╪)  Я " ";єonf(A% ─ (1<<12),"RightSh");ф)  Я " ";єonf(A% ─ (1<<11),"RightCt");п  :з  ЯДЩ0Н:Ь:>щєb0(A%,N%):Й A$,B$,L%:B$="0":ГA%<0:B$="1":A%=A%─&7FFFFFFF5УA$=ц(A%─1)+A$:A%=A%│2:L%=L%+1:ЩL%>30:=бB$+A$,N%): $щєh0(A%,N%)=б"00000000"+ц~A%,N%)*:45щєc(A%):Г A%<32 └ A%=127:="^"+Ґ(A%┌64) ▀ =ҐA%+" ">:H%щєonf(A%,A$):ГA%:=A$ ▀ =д╘A$,"-")R:\fp&Т Crunched library version of codez&Т --------------------------------└:▌5щєdeep_inkey(T%):ЙC%,M%,K%,S%:C%=і(T%):ГC%=-1:=-1≤/ГC%=0:C%=╔:ГC%:C%=(C%└&100)┌((C%─15)>9─&40)╒&S%=0:ЦK%=4╦9:S%=(S%<<1)└(і-K%─1):М╛Eх≥6,&CA,,&FF╦,M%:х≥6,&7A╦,K%:=C%└(S%<<10)└((M%┌&14)<<16)└(K%<<24)І:ю4щєdeep_get:ЙA%:У:A%=єdeep_inkey(10):Щ A%<>-1:=A%й:тчХРЭ">  Г єkeyb_tstbit(0,fl%) ▄ ...#just do: Г (fl% ─ (1<<0)) ▄ ...$> Рkeyb_setbit(9,mask%).8!just do: mask%=mask% └ (1<<9)BL$>  х≥ "OS_Byte",&7A ╦ void%,key%V`%just do: х≥ "OS_Byte",&7A ╦ ,key%jtJAny returned values you want to ignore can be just ignored by skipping~Gthe variable to deposit it into after the ╦, just as any parameters┬Gyou want to ignore when calling can also be skipped by skipping the▓9variable before the ╦, and zero will be used instead.°і╟╨дMТ FNkeyb_deepscan(<100th secs>) - waits for and returns a "deep" keypressнТьK-----------------------------------------------------------------------Б+Т Returns: b00-b08 : Keypress characterЛPТ              b09 : Timeout flag (Set if timeout expired in INKEY variant.)Ж4Т          b10-b11 : Toggle state modifier keys: 'Т              b10 : Num-Lock state
(Т              b11 : Caps-Lock state7Т          b12-b23 : Momentary state modifier keys:+Т              b12 : Right mouse button(,Т              b13 : Middle mouse button2*Т              b14 : Left mouse button<&Т              b15 : Right ALT keyF'Т              b16 : Right CTRL keyP(Т              b17 : Right SHIFT keyZ%Т              b18 : Left ALT keyd&Т              b19 : Left CTRL keyn'Т              b20 : Left SHIFT keyx'Т              b21 : Either ALT key┌(Т              b22 : Either CTRL key▄)Т              b23 : Either SHIFT key√-Т          b24-b31 : Physical key pressed═╙)Т 00000000 11100000000000   000000000Є)Т 76543210 32109876543210   876543210Ў)Т physical modifier__keys   characterх)Т 33222222 22221111111111 0 000000000р)Т 10987654 32109876543210 9 876543210Ъ