PROC testKeyEvent:
	LOCAL ev&(16)
	while 1
		getevent32 ev&()
		cls
		if ( ev&(1) and &400 ) = 0
			print "keycode	", ev&(1)
			print "scan	", ev&(3)
			print "modifier	", ev&(4)
			print "repeat	", ev&(5)
		else
			print "not key event"
		endif
		endwh	
ENDP