sub ReadKey {
  my($File) = normalizehandle((@_>1?$_[1]:\*STDIN));
	if ($_[0]) {
		Win32PeekChar($File, $_[0]);
	} else {
		getc $File;
	}
	#if ($_[0]!=0) {return undef if !Win32PeekChar($File, $_[0])};
	#getc $File;
}