detect a keypress

something like this ?:

While Not KeyDown(1)

scancode=0
For n=2 To 237
	If KeyDown(n)
		scancode=n
		Exit
	EndIf
Next
Print scancode

Wend