import windows

#From http://faq.cprogramming.com/cgi-bin/smartfaq.cgi?answer=1045691686&id=1043284392

proc getChar(ch:var TCHAR): bool =
  var
    ret = false
    stdInHandle = GetStdHandle(STD_INPUT_HANDLE)
    saveMode: DWORD

  discard GetConsoleMode(stdInHandle, saveMode)
  discard SetConsoleMode(stdInHandle, ENABLE_PROCESSED_INPUT)

  if WaitForSingleObject(stdInHandle, INFINITE) == WAIT_OBJECT_0:
    var num: DWORD
    discard ReadConsole(stdInHandle, addr ch, DWORD(1), num, nil)

    if num == 1: result = true
  discard SetConsoleMode(stdInHandle, saveMode)

proc getChar*(): TCHAR =
  var ch: TCHAR = TCHAR(0)
  discard getChar(ch)
  return ch