查找键码

Author: 天津吕文年 Date: 1992-05-08

        其实解决这个问题相当容易。在CEC_ Ⅰ(中华学习机)上只需编制仅有一行的BASIC程序运行。按下某个键就会显出相应的键码。程序如下:
        10 GET A$:PRINT ASC (A$):GOTO 10
        这一程序是死循环，按Ctrl-C也不会退出，只显示它的键码3。如果退出可按Ctrl-Reset。
        在PC机上要达到上述目的程序如下:
        10 A$=INKEY $:IF A$=" " THEN 10
        20 PRINT ASC(A$):GOTO 10
        值得注意的是，PC机的键码有的是双码，当运行以上程序如显示1，则说明此键是双参与。那么要知道第二码，只将以上程序中的20语句改为:
        20 PRINT ASC (RIGHT $(A$，1)0:GOTO 10
        就可以了。它将显示双码的第二码。