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.
 
 
 
 

41 lines
853 B

$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