
$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:CKbdStateGlobals"$ is indexed with the
	//merged scan code.  (left shift and
	//right shift combined for example.)
	//$LK,"kbd.down_bitmap2",A="MN:CKbdStateGlobals"$ 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;
	FlushMessages;
}

KeyDownBitMapDemo;
        '         ûÿÿÿ5          þÿÿÿ3       