REM Анализ кода нажатой клавиши CLS GETKEY: A$ = INKEY$: IF A$ = "" THEN GOTO GETKEY IF ASC(A$) = 27 THEN STOP IF LEN(A$) = 1 THEN IF ASC(A$) = 13 THEN PRINT "Нажата клавиша Enter с кодом = 13": GOTO GETKEY END IF PRINT "Нажата обычная клавиша '"; A$; "' с кодом ="; ASC(A$) ELSE PRINT "Нажата управляющая клавиша с кодом "; ASC(RIGHT$(A$, 1)) END IF GOTO GETKEY