A TempleOS distro for heretics
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
|
$SP,"<1>",BI=1$ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
I64 x=0; |
|
|
|
|
|
U0 DrawIt(CTask *,CDC *dc) |
|
|
{ |
|
|
Sprite3(dc,x%100,100,0,$IB,"<1>",BI=1$); |
|
|
} |
|
|
|
|
|
U0 KeyDownBitMapDemo() |
|
|
{ |
|
|
//This conversion routine is slow. |
|
|
I64 i_sc=Char2ScanCode('i'); |
|
|
|
|
|
"Press and hold $$GREEN$$'i'$$FG$$.\n"; |
|
|
while (!Bt(kbd.down_bitmap,i_sc)) |
|
|
Yield; |
|
|
|
|
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$ |
|
|
Fs->draw_it=&DrawIt; |
|
|
|
|
|
//$LK,"kbd.down_bitmap",A="MN:CKbdStateGlbls"$ is indexed with the |
|
|
//merged scan code. (left shift and |
|
|
//right shift combined for example.) |
|
|
//$LK,"kbd.down_bitmap2",A="MN:CKbdStateGlbls"$ is indexed with the |
|
|
//distinct scan code. See $LK,"Char",A="HI:Char"$ and $LK,"Scan Codes",A="MN:SC_INS"$. |
|
|
|
|
|
while (Bt(kbd.down_bitmap,i_sc)) { |
|
|
x++; |
|
|
Sleep(10); |
|
|
} |
|
|
SettingsPop; |
|
|
FlushMsgs; |
|
|
} |
|
|
|
|
|
KeyDownBitMapDemo; |
|
|
' ûÿÿÿ5 þÿÿÿ3 |
