Extern "Win32"
	Function GetAsyncKeyState:Int(vKey%)
End Extern
Function IsKeyPressed:Int( key$ )
	Local vkey%
	vkey=Asc(Upper(key))
	Return ( GetAsyncKeyState( vKey ) Shr 16 ) And 1
End Function

If IsKeyPressed("F") Then End

SuperStrict

Private

Extern "Win32"
	Function GetAsyncKeyState:Int(vKey:Int)
End Extern

Public

Function AsyncKeyDown:Int(vKey:Int)
	If vKey < 0 Or vKey > 255 Then Return 0
	Return GetAsyncKeyState(vKey:Int) Shl 16 Shr 31
End Function

Function AsyncKeyHit:Int(vKey:Int)
	Global keystate:Byte[256]
	If vKey < 0 Or vKey > 255 Then Return 0
	Local hit:Int = (keystate[vKey] = False And AsyncKeyDown(vKey) = True)
	keystate[vKey] = AsyncKeyDown(vKey)
	Return hit
End Function

Global AsyncRKH:Byte[256]
Function AsyncRecordKeyHits()
	For Local i:Int = 0 To 255
		AsyncRKH[i] = AsyncKeyHit(i)
	Next
End Function
Function AsyncKeyHitEx:Int(vKey:Int)
	If vKey < 0 Or vKey > 255 Then Return 0
	Return AsyncRKH[vKey]
End Function

Function AsyncFlushKeys()
	For Local i:Int = 0 To 255
		GetAsyncKeyState(i)
		AsyncKeyHit(i)
	Next
End Function