#include "TrueBASIC.h"

int kb = 0;

#ifdef _MSC_VER
int __stdcall TBKEYINPUT()
{
	return TBkeyinput()?-1:0;
}
#endif

int TBkeyinput()
{
    int lbtn = 0, rbtn = 0, k;
    GWkybrd(&kb, NULL, NULL, -1);
    if(kb) return kb;
    k = kbhit();
    if(k) return k;
    lbtn = GWmouse(&rbtn, NULL, NULL);
    if(rbtn) {
        kb = 's';
        return kb;
    }
    if(lbtn) {
        kb = ' ';
        return kb;
    }
    return 0;
}

#ifdef _MSC_VER
void __stdcall TBGETKEY(int *k)
{
	*k = TBgetkey();
}
#endif

int TBgetkey()
{
    int k = 0;
    if(kb) {
        k = kb;
        kb = 0;
    } else
        while(kbhit()) k = getch();
    return k;
}