KeyDown() without Graphics()

btw, I'm not looking for keyrepeat as used in games (no delay).

But more like:

[press][delay][repeat][repeat][repeat][repeat][repeat][repeat][repeat][repeat][repeat][keyup]

The delay is important.

see this B+ code:

window=CreateWindow("._.",0,0,640,480)

canvas=CreateCanvas(0,0,640,480,window)

Repeat
	WaitEvent()
	If EventID()=$803 End
	
	SetBuffer CanvasBuffer(canvas)
		Cls
		Text 2,2,EventID()+" "+EventData()
		
		If EventID()=259 ; keyrepeat
			If EventData()=63232 ; up
				y=y-8
			EndIf
			If EventData()=63233 ; dn
				y=y+8
			EndIf
			If EventData()=63276 ; pgup
				y=y-32
			EndIf
			If EventData()=63277 ; pgdn
				y=y+32
			EndIf
			If EventData()=63273 ; home
				y=0
			EndIf
			If EventData()=63275 ; end
				y=400
			EndIf
			If EventData()=63234 ; l
				x=x-8
			EndIf
			If EventData()=63235 ; r
				x=x+8
			EndIf
			If EventData()=63236 ; F1
				x=Rnd(600)
				y=Rnd(400)
			EndIf
		EndIf
		Rect x,y,8,8,1
	FlipCanvas canvas
Forever

Things should work/feel exactly like this.. I dunno about all that polled stuff, I basically want to do events-only orso.. all my keyboard routines ar meant for apps, not games.
At the moment it isn't possible with bmax-events natively, unless someone proves me wrong. :P
(oh, and I don't have xp/mingw)

ps. note that I only used a canvas here to visualise the effect, a canvas or panel is not required.