Коды клавиатуры с бэйсика.

[baxter]

Руслан, из бейсика самый быстрый и простой опрос клавы как предложил goodboy:

IF INKEY$="буква" THEN

[USERHOME]

Ещё такое было (я для пианино делал BEEP команды)
10 LET A$=IKEYS$
20 IF A$="1" THEN BORDER 1
30 IF A$="2" THEN BORDER 2
.....
1000 GO TO 10

---------- Post added at 01:43 ---------- Previous post was at 01:01 ----------

BASIC

IN 65278 считывает ряд от CS до V
IN 65022 считывает ряд от A до G
IN 64510 - - - Q-T
IN 63486 - - - 1-5
IN 61438 - - - 0-6
IN 57342 - - - P-Y
IN 49150 - - - Ent-H
IN 32766 - - - Space-B

---------- Post added at 01:49 ---------- Previous post was at 01:43 ----------

В журнале нашёл
10 FOR N=0 TO 7: REM номер полуряда
20 LET A=254+256*(255-2**N)
30 PRINT AT 0,0; IN A
40 GO TO 10