Perhaps a dofferent approach might help here.

INKEY$ can be used for all of that.

SELECT CASE LEN(INKEY$)
...... CASE 1 <- Standard keys
...... CASE 2 <- Extended keys (function keys and such)
...... CASE 4 <- Mouse related keys buttons
END SELECT

don't quote me but I think powerbasic uses something like this.