/*  Very simple implementation of getch for vbcc - use at own risk! */
/*  Strange things may happen (or not) if stdin is not tty or getch */
/*  is mixed with buffered io.                                      */

#include <stdio.h>

int getch()
{
    int k;
    SetMode(stdin->filehandle,1);
    k=getchar();
    SetMode(stdin->filehandle,0);
    return k;
}