CHKCHR$()でコンソール文字を読み取れますよ(